MessageDlg Programm läuft weiter

[daniel71]

Hallo

Kann mir jemand sagen wieso beim unten aufgeführten Code, das Programm nicht anhält?
Wenn ich einen Haltepunkt bei if MessageDlg... einfüge, erscheint die MessageBox. Wenn nicht, wird die else Bedingung ausgeführt (mrNo) und danach FormInstallationEndpunktAnschliessen.ShowModal ausgeführt.

Delphi-Quellcode:

        if DrahtAnEndAngeschl <> KGrid1.RowCount - 2 then
        begin
          if MessageDlg('Sollen am Endpunkt nicht angeschlossene Drähte am Einschub angeschlossen werden?', mtWarning, [mbYes,mbNo], 1) = mrYes then
          begin
            EndAnzDrahtAngeschl:= KGrid1.RowCount - 2;
            AlleDrahtEndAngeschl:= True;
          end
          else
          begin
            EndAnzDrahtAngeschl:= DrahtAnEndAngeschl;
            AlleDrahtEndAngeschl:= False;
          end;
        end
        else
          KabelAnzDraht:= DrahtAnEndAngeschl;
        FormInstallationEndpunktAnschliessen.ShowModal;

Macht irgendwie keinen Sinn.