Sleep in einem Thread. Application.processmessage

[Thomas83]

muss ich umbedingt eine while draus machen....
habe es jetzt so gemacht

Delphi-Quellcode:

procedure TThreadClient.Execute;
var
  i : integer;
  msg : TMsg;
begin
  inherited;
 
  repeat
  begin
    if fClient.Active then
    begin
      //... sende daten
    end;
    //Noch Online?
    if not fClient.Active then begin
      //... baue verbindung auf
    end;
    //Warte kurz
    sleep(1);
 
    GetMessage(msg, 0, 0, 0);
    TranslateMessage(msg);
    DispatchMessage(msg);
 
  end until Terminated;
end;