Problema con el Onhint

[aeff]

realmente no entiendo del todo tu pregunta, pero te puedo dar algo de lo que comprendí, en primer lugar, utilizaría el siguiente procedimiento para mostrar las formas:

Código Delphi [-]
procedure MostrarModal(vForma: TForm);
begin
  if vForma = nil then Exit;
  vForma := TForm.Create(nil);
  vForma.ShowModal;
  vForma.Release;
end;

ahora, para capturar el Hint de tu app... utilizaría el siguiente método:

Código Delphi [-]
{ Private declarations }
procedure AppOnHint(Sender: TObject);
...
 
implementation
 
procedure TForm1.AppOnHint(Sender: TObject);
begin
  ShowMessage(Application.Hint);
end;

...

hasta aquí hemos declarado el procedimiento que responderá al evento OnHint de tu applicación...

falta indicar que es esté el que va a responder, para ello escribe en el OnCreate de tu forma principal la siguiente línea de código:

Código Delphi [-]
 ...
 begin
    Application.OnHint := Form1.AppOnHint;
 end;
 ...

espero que no te de más errores, por lo menos a mi no me ha dado fallo, digo, si era esto lo que preguntabas.

saludos!!!