MessageDlg wird dopellt angezeigt - Solle er aber nicht

[taaktaak]

Moin, Moin,
habe den Thread jetzt nicht verfolgt, aber das doppelte BEGIN ...

Zitat:

Delphi-Quellcode:

begin 
  begin 
    code; 
    l1; 
    end; 
  MessageDlg('Codieren erfolgreich beendet', 
  mtinformation, [mbOk], 0); 
  form1.ProgressBar2.Position:=0; 
  form1.ProgressBar1.Position:=0; 
end;

habe ich eigentlich noch nie vorher gesehen - ist das nicht schlicht überflüssig???