Problem mit ShowModal und Exception

[ConnorMcLeod]

Dafür gibt es OnCloseQuery.

Delphi-Quellcode:

procedure TForm1.FormCloseQuery(Sender: TObject;
  var CanClose: Boolean);
begin
  try
    // machwas
  except
    CanClose := False;
  end;
end;