messagebox mit onclose??

[Jasocul]

Look for the changes.
Your source:

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 // this line is wrong

  close;
  end;
end;

my source:

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)= mrOK then begin // This line is changed

  close;
  end;
end;

The result of the MessageBox is not MB_OK. You have to compare to mrOK.