formularios mdi

[tango01]

hola gente.

quiero guardar en la posicion, el tamaño, y si estaban visibles los form mdi child

para eso en el evento on Destroy del form:

procedure TfSesion.FormDestroy(Sender: TObject);
begin
self.customizer.saveForm(self);
end;

donde el saveform:

procedure Tcustomizer.saveForm(fm : Tform);
var
reg : Tregistry;
begin
reg := TRegistry.Create;
reg.RootKey := HKEY_CURRENT_USER;
reg.OpenKey(self.key,true);


reg.WriteInteger(self.Cifrar('TOP'),fm.Top);
reg.WriteInteger(self.Cifrar('LEFT'),fm.Left);
reg.WriteInteger(self.Cifrar('HEIGHT'),fm.Height);
reg.WriteInteger(self.Cifrar('WIDTH'),fm.Width);

if fm.Showing then
reg.WriteInteger(self.Cifrar('VISIBLE'),1)
else
reg.WriteInteger(self.Cifrar('VISIBLE'),0);

reg.CloseKey

end;

el problema que tengo es que siempre el metodo fm.showing es TRUE.

todos los forms tienen en el evento close:

procedure TfSesion.FormClose(Sender: TObject; var Action: TCloseAction);
begin
ShowWindow(self.Handle, SW_HIDE);
end;

¿como puedo saber si se estaba mostrando o no un formulario mdi child en el momento de destruirlo?

gracias de antemano por su ayuda.

Saludos,

Federico, Mar del Plata, Argentina.-