Synchronisierung mit MainThread ohne Thread-Kontext

[sirius]

funktioniert doch:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var id:Cardinal;
begin
  BeginThread(nil,0,@TForm1.ThreadFunc,self,0,id);
end;

procedure TForm1.snyc;
begin
  if GetCurrentThreadId=system.MainThreadID then
    showmessage('yes');
end;

function TForm1.ThreadFunc: Integer;
begin
  TThread.Synchronize(nil,snyc);
end;