Шифрование

[cheef]

memo1.Text:=f;
for i:=1 to length(memo1.Text) do begin
if f[i]='А' then f[i]:='F'
end;
f:=memo1.text;
end;

Так шифрую, но мемо ничего не возвращается. Туплю сижу.

[_-Re@l-_]

Ну я например сделал так:

procedure TForm1.Button1Click(Sender: TObject);
begin
     f:=Memo1.Text;
     for i:=1 to length(f) do
     begin
     if f[i]='À' then f[i]:='F'
     end;
     memo1.Text:=f;
end;

У меня F вводится в мемо, а затем в мемке уже всё изменяется...
И ещё: нужно использовать length(f) , а не length(Memo1.Text).

[cheef]

Интернет не работал, поэтому отписаться не мог, что сам понял тупость свою.