Add(Button,2858051,84,112)
{
 Left=20
 Top=35
 link(onClick,10567583:doStart,[])
}
Add(Thread,10567583,140,112)
{
 FastStop=0
 link(onSyncExec,9671216:doMessage,[])
}
Add(Message,9671216,196,119)
{
}

function TControl.ProcessMessage: Boolean;
var Msg: TMsg;
begin
   Result := False;
   if PeekMessage( Msg, 0, 0, 0, PM_REMOVE ) then
   begin
      Result := Msg.message <> 0;
      if (Msg.message = WM_QUIT) then
        AppletTerminated := True
      else
      begin
        if not(Assigned( fExMsgProc ) and fExMsgProc( @Self, Msg )) then
        begin
          if Msg.message=CM_EXECPROC then beep(1000,1000); //!!!
          TranslateMessage( Msg );
          DispatchMessage( Msg );
        end;
      end;
   end;
end;