MessageDlg wird dopellt angezeigt - Solle er aber nicht

[Deltachaos]

Zitat von marabu:

Moin,

der Fehler ist ein fehlender Block beim ersten IF-Statement in Button3Click.

Danke,
Hier nochmal der funktionirende:

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject);
begin
  _var_;
  begin
    if form1.RadioButton1.Checked then
      begin
        begin
          code;
          l1;
        end;
        MessageDlg('Codieren erfolgreich beendet',
        mtinformation, [mbOk], 0);
        form1.ProgressBar2.Position:=0;
        form1.ProgressBar1.Position:=0;
      end;
  end;

Ich weis auch nicht ich vergesse immer irgend wo begin`s oder end`s