Cierre de un from desde icono

[emeritos]

Buenas dilpheros.

Utilizo Delphi 7 y me gustaria saber como se cierra un from desde un icono.

En el Icono tengo

frmdistribucionmanual.Close;

pero no se ejecuta nunca el procedimiento de abajo

procedure Tfrmdistribucionmanual.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
frmdistribucionmanual.ModalResult := mrOK;
end;

si presiono el aspa (X) se cierra correstamente