Problemer med substitutionskryptering

Hej i forbindelse med et kapitel skal jeg lave en kryptering, hvor et tegn har et tilsvarende andet tegn. Eksempelvis er A=X eller 1=9. Jeg har brugt følgende kode, men den virker ikke:

procedure TForm1.Kryp1Click(Sender: TObject);
var
HT,Alfabet,Sub: String;
i,u: integer;
begin
HT:=Memo1.Text;
Alfabet:='ABCDEFGHIJKLMNOPQRSTUVWXYZÆØÅabcdefghijklmnopqrstuvwxyzæøå1234567890';

Sub:= 'QWERTYUIOPÅASDFGHJKLÆØZXCVBNMqwertyuiopåasdfghjklæøzxcvbnm2143756809';

for i:=1 to length(HT) do
begin
for u:=1 to 68 do
begin
if HT=Alfabet then HT:=Sub;
end;
end;
Memo1.Text:=HT;
end;

Nogen som kan fortælle mig hvad der er galt. Meningen er at A skal blive til Q, B skal blive til W, C til W osv., men ABC bliver til HVL.