Hallo,
Du wandelst jetzt den Text aus Label1 und Label2 in Integerzahlen um (also der String '10324' wird zu 10324). Da kannst Du natürlich nicht mit der von Dir verwendeten Methode die beiden ersten zahlen addieren, dann die zweiten usw. Dazu müsstest Du die Variablen Text und Schlüssel als Strings definieren.
Folgender Code sollte funktionieren (ungetestet, hab grad kein Delphi zur Hand):
Delphi-Quellcode:
procedure TForm1.Button2Click(Sender: TObject);
Var
b:integer;
schluessel,text : string;
begin
text:= Label1.caption; //in Label1.caption steht der in zahlen umgewandelte Text
schluessel:= Label2.caption;// in label2.caption steht der in zahlen umgewandelte schlüssel
for b:=1 to length(Label1.caption) do
begin
Label3.caption:= Label3.caption + (inttostr(strtoint(text[b]) + strtoint(schluessel[b]))); // in label3.caption soll der verschlüsselte Text
// ausgegeben werden
end;
end;
end;