string an bestimmter stelle auslesen

[if_then_Anweisung]

Danke.
Ich weiss dass es so kein sinn macht, es wird auch noch nen verschlüsselungsalgorhytmus eingebeaut.

<edit>
Immer noch der fehler. hier der code

Delphi-Quellcode:

    for i:=0 to length(Memo1.Lines.Text) do begin
      a:=Memo1.Lines.Text[i];
      memo2.Lines.text[i] := a;
    end;