Fórum Mostrar hint em StatusBar #207180

Olá pessoal, estou tentando apresentar o hint de um componete qualquer em uma barra de status, utilizando o seguinte código:

procedure TForm_Cad_For.MostraHint(Sender: TObject);
begin
StatusBar1.SimpleText := Application.Hint;
end;

procedure TForm_Cad_For.FormCreate(Sender: TObject);
begin
Application.OnHint := MostraHint;

Até ai tudo bem, funciona beleza. O interessante é que quando fecho o form( Form_Cad_For ), minha aplicação apresenta o seguinte erro:

---------------------------
Debugger Exception Notification
---------------------------
Project CEFarmacia.exe raised exception class EAccessViolation with message ´Access violation at address 004B5D2A in module ´CEFARMACIA.EXE´. Read of address FFFFFFFF´. Process stopped. Use Step or Run to continue.
---------------------------
OK Help
---------------------------

No fechamento do form, eu utilizo o seguinte código:

ModalResult := -1;

Espero que vcs possam me ajudar, desde já agradeço.