"Durchlauf"-Algorhytmus gesucht

[MisterNiceGuy]

Hi ich versuche gerade einen Algorhytmus zu schreiben, der folgendes tun soll:

-> Beginnen mit den ersten Buchstaben aus einem Memo.
-> Falls diser Buchstabe nicht der letzte aus dem Memo ist, den nächsten buchstaben aus dem Memo nehmen.
-> Falls es schon der letzte ist, einen neuen Buchstaben in den String einfügen.
-> Solange, bis ein String gefunden wurde.

Delphi-Quellcode:

    while panel1.Caption <> 'aa' do
      begin
        pw := panel1.Caption;
        for i:=length(pw) downto 1 do
          begin
            if pw[i] <> memo1.Text[length(memo1.Text)] then
              pw[i] := next_char(pw[i])
            else if i = 1 then
              pw := pw+memo1.Text[1];
          end;
        panel1.Caption := pw;
      end;

Das ist der Code, soweit ich den schon geschrieben habe. Aber es funktioniert irgendwie nicht so recht.
Jetzt meine Frage an euch, hat einer einen solchen Algorhytmus oder findet einen Fehler in dem Code?

Hoffe ihr könnt mir helfen!!