Delphi zählt falsch

[Coder]

mhh, weiß nicht, was soll daran falsch sein?
ich glaube nicht daß dort der Fehler liegt.
was gibt es denn besseres?
Close; ?


nein, ich meine... wenn Ihr auf Button 3 oder bei den beiden [button 3 und 1] abwechselnd drückt...
tritt der Fehler auf.

oder: HIER ist der Code:
_______________________________

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject);
var
pwl,i, Colord_cnt: integer;
ColordString,Colord, Texti : string;
ColorByte : Byte;

begin

Colord := edit1.text;
Colord_cnt:=1;
pwl :=Length (Edit1.Text); <-<-<---<<<< gerade editiert , hinzugefügt
for i := 1 to Length (texi)*2 do
    begin
    Colord_cnt:=Colord_cnt +1;
      if Colord_cnt > pwl then
        begin
           Colord_cnt:= 1;
        end;

Colorbyte:= ord(Colord[Colord_cnt]) ;
Colord[Colord_cnt] :=  chr (Colorbyte+3);

Texi[i] := chr (ord (Texi[i]) xor ord(Colord[Colord_cnt]));
end;

Label1.Caption := Colord;
end;