Wertetafel einer beliebigen Funktion

[Melli012345]

Folgende Aufgabe
Die Wertetafel einer beliebigen Funktion soll ausgegeben werden. Zur Wertetafel soll auch die Schrittweite wählbar sein.

Mein Programm funktioniert, wenn meine Funktion z.B. f(x) = 1 oder so heißt.
Aber sobald ich die Variable "x" in das Editfenster eingebe, kommt eine Fehlermeldung "x ist kein gültiger Fließkommawert"...
Bin nun schon seid ner Stunde am rumprobieren...daher sieht mein Quelltext mittlerweile auch bisschen komisch aus und es geht sicher viel einfacher.
Aber das Problem hab ich nicht bewältigt.
Weiß jemand, woran es liegt?

Delphi-Quellcode:

procedure TForm1.WertetafelClick(Sender: TObject);
 var
  x1, x2, x, h, y2: Real;
  x3, y3  : extended;
  y1 : string;
begin
 h := strtofloat(edit2.text);
 x2 := strtofloat(edit4.text);
 x1 := strtofloat(edit3.text);
 x := x1;
 listbox1.Items.add('     x         f(x)     ');
 y1 := edit1.text;
   y2 := strtofloat(y1);
  while x < x2 do
  begin
   x3 := round(x);
   y3 := round(y2);
   listbox1.Items.add(Format('%5.2f',[x3])+ ' ' + Format('%5.2f',[y3]));
   x := x+h;
  end;
end;

end.