Indy IdTCPClient/IdTCPServer CPU Auslastung 100%

[AlBo55]

Hallo,
ich bin ratlos.
Ich probiere gerade mit den Indys
Der TCPClient soll auf Nachrichten vom Server warten. Klappt alles bestens. Aber sobald der Client connected ist habe ich eine CPU_Auslastung von 100%. Kann mir jemand da weiterhelfen?
Ich hab sowohl den Client als auch den Server völlig ausgehöhlt für die Anzeige hier:

Thread mit IdTCPClient

Delphi-Quellcode:

procedure BoTCPClient.Execute;
begin
  Client:=TIdTCPClient.Create(nil);
  Client.Host:=Host;
  Client.Port:=Port;
  i:=0;
  while not terminated do
  begin
    if not(Client.Connected) then
    begin
      try
        Client.Connect;
        // Anmeldestring senden        i:=0;
      except
        on E:Exception do
        begin
          Emsg:=E.Message;
        end;
      end;
    end;
    Sleep(15000);
  end;
  if Client.Connected then
  begin
    // Thread terminated
    Client.Disconnect;
  end;
//  Synchronize(VerbE);
//  PostMessage(hwd,SKY_CONNECT,0,0);
end;

Server

Delphi-Quellcode:

procedure TForm1.TCPServerExecute(AContext: TIdContext);
var
  I: Integer;
  st:integer;
begin
end;

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
// Server starten
begin
  TCPServer.Active:=true;
  lauf:=true;
  REdit.SelAttributes.Color:=clgreen;
  REdit.Lines.Add(DateTimeToStr(now)+': Server gestartet');
end;

Mir fällt nichts ein was da falsch sein könnte
Vielen Dank schon mal

Albrecht