Kleines Verschlüsselungs-Programm

[1234588]

ich hab zufaellig was gesehen

Delphi-Quellcode:

  begin;
    if form1.radiobutton3.checked then
      begin
        begin            < warum?
          decode;
          l3;
          decode;
          l3;
          decode;
          l3a;
        end;
        MessageDlg('Decodieren erfolgreich beendet',    < beendet, aber auch wirklich erfolgreich?
        mtinformation, [mbOk], 0);
        form1.gauge2.progress:=0;
      end;
  end;