Code wird übersprungen

[Die Muhkuh]

Hi,

ich hab folgenden Code:

Delphi-Quellcode:

case Sprachwahl of
    0: { Deutsch }
      begin
        if Dialog then
        begin
          if sdSave.Execute then //<--
          begin
            CreatePDF(EFileErrorD, sdSave.Filename, False);
            ShellExec;
          end;
        end
        else
        begin
          CreatePDF(EFileErrorD, sdSave.Filename, False);
          ShellExec;
        end;
      end;
    end;

Dieser Code steht in einer Unit C.

Wenn ich den Code aus Unit A aufrufe klappt alles. Rufe ich aber den Code aus Unit B auf überspringt er die Zeile mit dem Pfeil und geht direkt ans ende der procedure. Stimmt da was mit der Optimierung nicht?