problem mit for-schleife

[Mb123]

hallo ,
ich habe folgendes problem:
ich möchte die y-werte der funktion f ausrechnen ( f(x)=x*x ). nun hab ich mir gedacht ich mache dies einfach mit einer for-schleife z.b. von 1 bis 5. und dann wollte immer wenn eine zahl von 1 bis 5 eingesetzt wird , den errechneten wert ausgeben haben. der code sieht nun so aus :

Delphi-Quellcode:

function f(x: extended): extended;
begin
f:= x*x
end;

[...]

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

bei der rechnung kommt allerding 25 raus und die werte werden natürlich nich enzelt ausgeben.. wenn mir da jemand weiterhelfen könnte wär das spitze !! danke