procedure TForm1.Button1Click(Sender: TObject);
var
km : array [1..5] of string ;
index,summe : Integer ;
begin
  for index := 1 to 5 do begin
    if index = 1 then
      km[1] := Edit1.Text;
    if index = 2 then
      km[2] := Edit1.Text ;
    if index = 3 then
      km[3] := Edit1.Text ;
    if index = 4 then
      km[4] := Edit1.Text ;
    if index = 5 then
      km[5] := Edit1.Text ;
    summe := km[1]+km[2]+km[3]+km[4]+km[5] ;
  end;
end;

end.