Salve,
cercare un oggetto adatto per questa discussione
è stato arduo, potrebbe sembrare una banalità, ma...
mi spiego meglio..
ho una form di Login che chiaramente si apre per prima...
in seguito si aprono contemporaneamente la
MainForm e una finestra di selezione Form2.
Alla chiusura della Form2 , anzi nel momento in cui la distruggo, distruggo anche la form di login
che altrimenti rimaneva aperta e visibile...

-------creazione della MainForm------------

Application.CreateForm(TfmMain, fmMain);
try
fmMain.Height := 670;
fmMain.Width := 880;
fmMain.Show;
except
on E: Exception do
begin
Beep;
ShowMessage('Errore apertura');
end;
end;

----------creazione della Form2-----------
procedure TfmMain.FormActivate(Sender: TObject);
begin


Application.CreateForm(TForm2, Form2);
try
Form2.ShowModal;
if Form2.ModalResult = mrOK then begin
Form2.Free;
fmLogin.Free;
end;
except
on E: Exception do begin
Beep;
ShowMessage('Errore su apertura');
end;
end;

end;


----quindi alla chiusura della MainForm----
procedure TfmMain.Exit1Click(Sender: TObject);
begin
ModalResult := mrOK;
Close;
end;


procedure TfmMain.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if ModalResult = mrOK then
Free; // libero la MainForm
end;


il PROBLEMA è che il programma mi
resta comunque in running .. non si chiude !!
ma non riesco a capire ...dove ho sbagliato...
forse per qualcuno di voi potrebbe essere più semplice capire dove sto sbagliando...
il codice che ho riportato dovrebbe essere
proprio la parte che mi crea errore !!

Grazie infinite!!