problem mit for-schleife

[Neutral General]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
for i:=1 to 5 do
  x:= f(i);
  Label4.Caption := FloatToStr(x); // Diese Zeile wird NICHT wiederholt !
end;

1. Siehe Quelltext
2. Siehe Quelltext:

Label4.Caption := Label4.Caption + 'f(' + IntToStr(i) + ')= ' + FloatToStr(x) + #13#10; 1+2 =>

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
for i:=1 to 5 do
begin
  x:= f(i);
  Label4.Caption := Label4.Caption + 'f(' + IntToStr(i) + ')= ' + FloatToStr(x) + #13#10;
end;
end;

So würd ichs eventuell machen

Gruß
Neutral General