Посимвольная замена текста в мемо

[Marsel737]

Всем доброго времени суток.

Хочу пройтись по мемо и заменить рандомно символы, примерно так:

procedure TWriter.Execute;
var
  I, Count: integer;
  Symbols: array[1..26] of char;
  Symb: char;
begin
  inherited;
  Randomize;
  Count := 0;
  for Symb := 'a' to 'z' do
  begin
    Inc(Count);
    Symbols[Count] := Symb;
  end;
  with frmMain do
  begin
    for I := 0 to Length(memOutput.Text) - 1 do
    begin
      if Random(1) = 1 then
        memOutput.Text[I] := Symbols[Random(25) + 1]
    end;
  end;
end;

Но это невозможно, потому как делать так нельзя:

memOutput.Text[I] :=

Поэтому я в тупике, может что посоветуете?

[Mad_Cat]

s:=memo.text;
{тут замена символов в s}
memo.text:=s;

[Marsel737]

Помогло, спс