procedure TKeybThread.Execute;
var
  mores:integer;
begin
  while not Terminated do begin
    mores:=WaitForMultipleObjects(2, @myEvents, false, 500);
    case mores of
      WAIT_OBJECT_0: begin   // Ctrl+F11
        ResetEvent(myEvents[0]);
        Ctrl_F11_Handler;
      end;
      WAIT_OBJECT_0+1: begin // Ctrl+F12
        ResetEvent(myEvents[1]);
        Ctrl_F12_Handler;
      end;
    end;
  end;
end;