Thread, Socket - Synchronize wird nicht aufgerufen

[C.Schoch]

Hi,
Was ist das denn für ein Konstrukt?

Delphi-Quellcode:

procedure TTCPThread.Execute;
begin
  inherited; // kann/muss weg!

  repeat
    Synchronize(DoConnect); // Bis hierhin und nicht weiter ..
    Sleep(1000);
  until (Terminated) or (Client.Active);
end;

var //was soll das sein? Compilerverwirrung?
  Msg: TMsg;
  TCP: TTCPObject;
begin
  TCP := TTCPObject.Create;
  TCP.StartConnecting;

  while GetMessage(Msg, 0, 0, 0) do
  begin
    TranslateMessage(Msg);
    DispatchMessage(Msg);
  end;
end.

Bin mir auch nicht sicher ob Synchronize in einer Klasse funktioniert, da sich das Handle des Hauptthread möglicherweise nicht ermitteln lässt