Calculative help !!

[lesmayers]

Hi

My friend has a problem with this delphi code..
She wants a set of integer numbers that people enter into boxes and results give total..Can anyone help.
This is what she has sent:

procedure TfrmAddFor.btnAddClick(Sender: TObject);
var
Number : string;
Count, Sum : integer;
begin
Count := 1;
Sum := 0;
for Count := 1 to 20 do;
Number := InputBox('Enter number', 'Number', ''); //create InputBox
Count := Count + 1;
Sum := Sum + StrToInt(Number);
lblIterationNumber.Caption := 'Iteration Number:' + Number;
lblSum.Caption := 'Cumulative Sum:' + IntToStr(Sum);
end;
end.

Tx for any help