Fehlersuche

[gangs-taas]

hey, ich habe versucht mir ein entschlüsselungsprogramm zu schreiben, wobei jeder buchstabe im verschlüsselten Text 'y' buchstaben hat. 'y' ist die erste Zahl in meinem EditFeld 1.
Wenn ich das Programm ausführe funktioniert es erst schon, aber wenn ic auf Button1 Klicke bekomme ich die Meldung

Zitat:

'' ist kein gültiger integer wert

ich weiß einfach nicht wo mein fehler ist ...
hier ist mein Code

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
String2 : string;
y : integer;
Schalter : integer;
begin
// Variablen Deklarieren  //
String2 := Copy(Edit2.Text,1, Length(Edit2.Text));
y:= StrToInt(Copy(Edit1.Text,0,1));
Schalter := 0;
x := 1 ;
// Kontrollanzeige//
Edit3.Text := IntToStr(x);
Edit4.Text := IntToStr(y) ;
// String stückeln//
repeat
begin
  sTemp1:= Copy(String2, 1, y);
 case StrToInt(sTemp)  of
 1234 : Memo1.Text := Pchar(Memo1.Text + 'a');
 5678 : Memo1.Text := Pchar(Memo1.Text + 'b');
  end;
  String2 := Copy(Edit2.Text,y, Length(Edit2.Text));
y := y+y    ;
{Edit3.Text := IntToStr(x);
Edit4.Text := IntToStr(y) ; }
If (y >= (Length(Edit2.Text))) Then
Schalter := 1  ;
End;
until (schalter = 1) ;

end;

ps. Danke schonmal für eure Hilfe