procedure TThread.Synchronize(Method: TThreadMethod);
begin
  Global_Synchronized := CallSynchronized;
  FMethod := Method;
  if Applet <> nil then
    SendMessage( Applet.fHandle, CM_EXECPROC, 0, Integer( @Self ) );
end;