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;

  CM_EXECPROC       = $8FFF;

...
...
    fExMsgProc: function( Applet: PControl; var Msg: TMsg ): Boolean;
    {* Additional message handler called directly from Applet.ProcessMessage.
       Used to call TranslateMDISysAccel API function for MDI application. }
...
...
//[function NewMDIClient]
function NewMDIClient( AParent: PControl; WindowMenu: THandle ): PControl;
  ...
  Applet.fExMsgProc := ProcMDIAccel;
...
...
function TControl.ProcessMessage: Boolean;
        ...
        if not(Assigned( fExMsgProc ) and fExMsgProc( @Self, Msg )) then
...
...