How to use event in script?

[luizluvizutto]

procedure fechar(Sender: TObject; var CloseAction: TCloseAction);
begin
   Showmessage( 'Vou fechar' );
end;

procedure exec;
var F: TForm;
begin
   F :=  TForm.Create(NIL);
   try
      F.OnClose := @fechar;
      F.ShowModal;
   finally
      F.Free;
   end;
end;

I'm having trouble getting my code to pass the "Onclose" event of TForm and other classes as well.
The code above opens the form normally, but the event doesn't work and doesn't give an error.
I'm using Lazarus 3.4 and compiling in 64 bit.
What am I doing wrong?

[brunaoalberto]

I have the same problem, I can't use events.