bloqueador de teclado antigatos

[aguml]

Es lo que tu dices y ya lo puse. Con respecto a usar un salvapantallas pues no sirve porque a veces estoy viendo una peli y el gato decide que el teclado es una buena cama jajaja.
Ahora que he puesto esa linea aparece una excepcion al mostrar el menu del systrayicon. El problema es que no hay ningun form activo al ser el unico y estar oculto y el componente hace uso de este codigo:

Código PHP:

void __fastcall TSysTrayIcon::ShowMenu()
{
   if(FPopupMenu == NULL) return;

   TPoint point;
   GetCursorPos((tagPOINT*)&point);

   try
   {
      if (Screen->ActiveForm->Handle != NULL)
         SetForegroundWindow(Screen->ActiveForm->Handle);
   }
   catch (...)
   {
   }

   FPopupMenu->Popup(point.x, point.y);
} 


El caso es que ActiveForm vale NULL y da una excepcion y no la pasa ni con el catch correctamente.
He hecho un chapú para solucionarlo que es hacer en el evento OnCreate del form Form1->Show() y Form1->Hide() y con eso ya hay un form activo y no falla pero durande unas decimas aparece y desaparece el form y no quiero que pase eso.