Immer +1 nehmen

[luckys41]

Guten Tag liebe Delphi-Praxis Community ,

Der Client sendet an den Server in einem Timer immer eine 1 mit dem Code :

Code:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
ClientSocket1.Socket.SendText('1');
end;

Es kommt auch perfekt an aber ich will es addieren mit dem Edit1.text hier mal der Code vom Server

Code:

var
  str: string;
  zahl1:real;
  zahl2:real;
  ergebnis:real;
begin
 str := Socket.ReceiveText;
 zahl1 := strtofloat(edit1.text);
 zahl2 := strtofloat(str);
 ergebnis := zahl1+zahl2;
 edit3.text := floatToStr(ergebnis);

Es kommt der Fehler :

Code:

---------------------------
Project1
---------------------------
'' is not a valid floating point value.
---------------------------
OK   
---------------------------

Wie kann mann soetwas besser umsetzen?

Möchte halt immer das es immer +1 in 4 Sekunden addiert.