Als potentielle Fehlerquelle fällt mir spontan nur das auf.
Delphi-Quellcode:
procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
var nachricht:string;
begin
timer2.Enabled:=true;
nachricht:=socket.ReceiveText;
nachricht:='['+thetime+' '+copy(nachricht,2,length(nachricht));
send_text(nachricht,0);
end;
Wenn nachricht = '' ist dürfte es krachen.
Ich würde beim Server Haltepunkte setzen, und zwar in ServerSocket1ClientRead, ServerSocket1ClientDisconnect und ServerSocket1ClientError, den Client disconnecten und dann mal schauen ...