Fehlersuche

[gangs-taas]

hey, ich bin bei meinem nächsten Probelm angekommen und hoffe auch hier auf eure hilfe.
Mein Code habe ich jetzt noch ein wenig verändert und er seith nun so aus

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var
String2 : string;
y : integer;
Schalter : integer;
sTemp1 : string;
sTemp : integer ;
Va,Vb,Vc : integer;
begin
// Variablen Deklarieren  //
String2 := Copy(Edit2.Text,1, Length(Edit2.Text));
y:= StrToInt(Copy(Edit1.Text,1,1));
Schalter := 0;
Edit3.Text := '';
Va := 1234; // erstmal zu testzwecken fest deffiniert später dann halt als richtige Variablen... 
Vb := 5678;
vc := 9101;
// String stückeln//
repeat
begin
  sTemp1:= Copy(String2, 1, y);
  sTemp := StrToInt(sTemp1);
     If (sTemp = Va) Then (Edit3.Text := Edit3.Text + 'a');
     If (sTemp = Vb) Then (Edit3.Text := Edit3.Text + 'b');
     If (sTemp = Vc) Then (Edit3.Text := Edit3.Text + 'c');
  inc(y)  ;
  String2 := Copy(Edit2.Text,y, Length(Edit2.Text));

If (y >= (Length(Edit2.Text))) Then
Schalter := 1  ;
End;
until (schalter = 1) ;
If (Schalter = 1) Then
ShowMessage('Fertig');
end;

so nun zu mienem Problem.
Also wenn ich in dem Edit2 (also da wo mein 'verschlüßelter Text sein sollte' mehr als nur die Zahlen für 2 Buchstaben also z.b. 12345678 habe, dann spinnt das Programm.

habe ich z.b. in Edit2 '123456789101' was ja eigendlich 'abc' entsprechen müsste, bekomme ich trotzdem nur 'ac'.

er gibt mir bei mehr als 2 "Buchstaben" habe gibt das Programm mir nur den ersten und den letzten Buchstaben aus ...
nicht alle 3 oder alle 4 ...

lg