Memo1.Lines.Text[i];
Hallo,
Mit Memo1.Lines.Text sprichst du den ganzen Memo Text an!
Dies gibt dir den Character an der Stellt i+1 zurück, vom ganzen Memo Text.

Zitat von
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[i][1];
memo2.Lines[i] := a;
end;