Wenn Du in Button2Click am Anfang die Variable Aenderung mit 0 initialisierst, funktioniert es!
Delphi-Quellcode:
procedure TForm1.Button2Click(Sender: TObject);
var
ndx : Integer;
FindBlank: TStrings;
encode : String;
Aenderung: integer;
begin
if Passwort <> 0 then
begin
try
AenderungsZaehler := 0;
encode := '';
Aenderung := 0; // <-- Diese Zeile einfügen