TIdTCPClient hängt sich bei ReadLn auf

[Win32.API]

Sers,
ich habe folgende Funktion um die Ankommenden Strings eines TIdTCPClients zu empfangen. Das funktioniert soweit auch gut,
wenn ich aber versuche die Form zu verschieben hängt sich das Programm auf. Der "Rahmen" ,der beim verschieben angezeigt wird, friert ein und die Maus kann ich auch nicht mehr auf die Taskleiste ziehen vorher hält mich eine Unsichtbare Wand auf ... Das ganze kann man nur mach mit dem Taskmgr beenden.
Das Interval des Timers ist 300, ein Antifreeze ist auch vorhanden mit einem IdleTimeOut von 250 und OnlyWhenIdle true.

Delphi-Quellcode:

procedure TForm1.Read_TimerTimer(Sender: TObject);
var
  s: string;
begin
      try
        repeat
          Application.ProcessMessages;
          s := Command_TCP.ReadLn;
          if s <> '' then
            begin
              Listbox1.Items.Add(s);
            end;
        until s = '';
      except
        Command_TCP.Disconnect;
      end;
end;

greetz