sieht ein bissel komisch aus. Versuch mal so:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
km : array [1..5] of integer;
index,summe : Integer ;
begin
for index := 1 to 5 do begin
km[index] := TryStrToInt(Edit1.Text,0);
end;
summe := km[1]+km[2]+km[3]+km[4]+km[5] ;
end;
[edit] Was soll das eigentlich werden? So, wie es im Moment aussieht, könnte man auch die Zahl, die im Edit steht, mit 5 multiplizieren. [/edit]