MessageDlg nach vorne holen

[ManuMF]

im Projekt:
Application.ShowMainForm := false; im onCreate:

Delphi-Quellcode:

// Möglichkeit 1:

  if (DerFehler) then begin
    if (MessageDlg(...) = mrOK) then
      application.terminate;
  end
  else
    Form1.Show;

// Möglichkeit 2:
  if (DerFehler) then begin
    if (MessageDlg(...) = mrOK) then
      Form1.Show;
  end;