Gleitkommafehler bei MessageDlg

[FBrust]

Hallo,

beim Ausführen des Codes

Delphi-Quellcode:

procedure TfrmOP_New.PrintUMB(intUMBID: integer);
var strMsg  : string;
begin
    strMsg := 'Möchten Sie das zugeordnete Unfallmerkblatt drucken?';
    if MessageDlg(strMsg, mtConfirmation, [mbYes, mbNo], 0) = mrYes then
      with dmUMB.tblSD_UMB do begin
        Open;
        .....

bleibt das Programm mit der Exception "EInvalidOP" und der Meldung "Ungültige Gleitkommaoperation" stehen. Die Zeilenmarkierung steht auf der MessageDlg-Zeile.

Weiss zufällig jemand, wie das zustandekommt, ich seh nämlich keine Gleitkommawerte oder hab ich da was komplett verpeilt?

Grüße
Frank