Daten synchronisieren

[Crayser]

Hallo zusammen
ich habe 2 programme; server und client. nun will ich das der server nach einer gewissen zeit einige Variablen zum Client sendet.

Code:

//Code vom Server
procedure TForm1.Timer2Timer(Sender: TObject);
var Leftstr:string;
begin
Leftstr:=inttostr(Schlaeger.Left);
ServerSocket1.Socket.Connections[0].SendText('4'+Leftstr);

//Code vom Client
empfang := ClientSocket1.Socket.ReceiveText; //client empfängt
choose:= strToInt(empfang[1]);

case choose of
1: ..
2: ..
3: ..
4: begin for i:=2 to length(empfang) do
         temp[i-1]:=empfang[i];
      SchlaegerKopf.Left:=strtoint(temp);
   end;

Das Programm kann fehlerfrei compiliert werden, doch wenn der delay von timer2 zuende ist, wird das Programm mit einem Fehler abgebrochen.

Danke für jegliche Hilfe.
Ciao Crayser