Close a window using the onclose-event

problem:

procedure TApp.FormClose;
begin
  If Table1.Active then Table1.Close;
  Key_Progs.Free;    {Some object}
  Act_Key.Free;      {Another object}
  Action:=cafree;    {This told me the helpfile, I don't know if it's right}
end;

Closing the form with the "close"-menuitem (systemmenu)
only closes the table the first time.
choosing "close" again closes my app.

What am I doing wrong ??

please e-mail: s...@uni-tuebingen.de

thanks