Событие Onclose в Delphi

[ArobasS]

Привет всем. Есть динамическая форма на неё надо прописать событие Onclose.

Вот так не работает:

private
    procedure _click(Sender: TObject);
    procedure _CLOSE(Sender: TObject);

.........

 forms[k-1].OnClose:=_close;

..........

procedure TForm0._CLOSE(Sender: TObject; var Action: TCloseAction);
var d:integer;
begin
k:=k-1;
end;

Событие Onclick прописанное похожим образом работает.

Можно ли сделать как-то по другому или подскажите ошибку.

[Аватар]

Найди различия в параметрах

procedure _CLOSE(Sender: TObject);
procedure TForm0._CLOSE(Sender: TObject; var Action: TCloseAction);

[Streletz]

Delphi - Назначить событие программно