Problema con el Onhint

[Vlady]

Hola amigos del club:

Tengo el siguiente problema con un aplicación, estoy mostrando las ayudas en una barra statusbar al desplazar el mouse sobre cualquier objeto de la ventana, esto me funcione correctamente. El problema sucede cuando creo las ventanas dinamicamente mediante este codigo.

Código Delphi [-]
Procedure MostrarModal(AClass : TFormClass);
Begin
   with AClass.Create(Application) do
   Begin
       try
          ShowModal;
       finally
          free;
       end
   End
End;

Cuando quiero mostrar una ventana llamo este procedimiento y al cerrar la ventana me arroja una exepción cerrandome la ventana que creo la nueva ventana el sitio de codigo que me arroja la excepcion es este

Código Delphi [-]
Procedure TItemFactura.MiHint(Sender: TObject);
Begin
    try
    if Application.Hint <> '' then
      LMDStatusBar1.SimpleText := Application.Hint;
   finally
   end
End;

Con este codigo activo las ayudas de cada componente de la ventana

Código Delphi [-]
procedure TItemFactura.FormCreate(Sender: TObject);
begin
  Application.OnHint := MiHint;
end;

en la excepcion que me arroja aparece un error creo de mensajes pero no se como solucionar este error, este error no aparece cuando las ventanas son ya creadas automanticamente por delphi y se muestran mediante showModal.

No se si es clara la pregunta

Gracias por la atencion prestada