Самоубийство формы на OnClose

[shade]

Как удалить форму в её же обработчике OnClose

Пробовал просто вызывать Free, так ругается - Access Violation

Форма создается динамически, их можно открыть несколько штук. При закрытии их нужно удалять. Но как?

[shade]

Сории, уже нашёл:

Код: Выделить всё

procedure TForm2.Form2Close(Sender: TObject; var CloseAction: TCloseAction);
begin
  CloseAction:=caFree;
end;