messagebox mit onclose??

[zeina]

Hallo,
ich habe eine Frage :

Delphi-Quellcode:

procedure TOSMap.FormActivate(Sender: TObject);
begin
if not( WebOSMaps1.Visible)then
 if MessageBox(0,'Es ist etwas Falsch geschrieben. Bitte Prüfen Sie die Adresse Richtig über',
     'project', MB_OK or MB_ICONERROR)= MB_OK then  begin

  close;
  end;
end;

warum reagiert es nicht mit (close)?
wie kann ich mit MessageBox mein From close!!!!