Zamykanie formy z komunikatem

Witam!

Pisze w delphi 5.0, i nie mogę <ort>rozgryść </ort>pewnej rzeczy.
Mam dwie formy.
Form1 jest domyslenie ustawiony visible.true, form2.visible:=false;
Chcę aby po wciśnięciu buttona1 (na formie1), pokazała się forma2. Natomist po wciśnięciu buttona2 (na formie2), forma2 została zamknięta, a zaraz po tym pojawił się komunikat.

Byłem pewien że poniższy kod, bedzie tak działał, ale się rozczarowałem, gdyż po wciśnięciu buttona2, pokazuje się komunikat, (na tle formy2 - której nie powinno już widać), a dopiero później forma2 znika.

Czy ktoś wie jak to zrobić?

FORM1.

procedure TForm1.Button1Click(Sender: TObject);
begin
form2.ShowModal;
end;

FORM2

procedure TForm2.Button1Click(Sender: TObject);
begin
form2.close;
ShowMessage('brak okna');
end;

spróbuj tak

procedure TForm1.Button1Click(Sender: TObject);
begin
form2.Show;
end;

procedure TForm2.Button1Click(Sender: TObject);
begin
form2.hide;
ShowMessage('brak okna');
end;

powinno dać radę

tak, działa, ale jak pokazuje się forma2, to jak klikniesz w forme1 to staje się ona aktywna(form1).
A jak użyję

form2.showmodal

to forma2 jest aktywna, dopóki jej nie zamkne.

Ten warunek musi być zastosowany:Forma2 jeżeli jest widoczna, to musi być aktywna, jeżeli jej nie ma to aktywna jest forma1 :-(

procedure TForm1.Button1Click(Sender: TObject);
begin
if(form2.showModal = mrOK)then
begin
  form2.hide;
  ShowMessage('wiadomosc');
end
end;

procedure TForm2.Button1Click(Sender: TObject);
begin
form2.ModalResult := mrOK;
end;

Trzeba było od razu tak mówić. to powyżej tak działa