[rarratia]

Claro, puedo generar un procedimiento así:

Código Delphi [-]
procedure ShowPopup(const Msg: string);
var
  ventana : TForm;
begin
  ventana := CreateMessageDialog(Msg, mtCustom, []);
  with ventana do begin
    OnKeyPress = tecla_pulsada;
    OnMouseMove = se_mueve_mouse;
    Try
      ShowModal;
    Finally
      Free;
    End;
  end;
end;

¿Pero el tema es cómo genero ahora un procedimiento afuera que pueda asignárselo al evento onkeypress y onmousemove, porque cuando creo los procedmientos que cierran la ventana al mover el mouse o pulsar una tecla me genera error