Заменить определенное слово на рандомные слова

[igrok111]

В мемо есть текст, там повторяется слово "hello". Нужно его заменить на случайное значение, что все они были разные: hello->sdufdsuf hello->kshbdshd и тд.
нашел функцию рандомного создания строки (string) и замены слова в цикле, но оно заменяет слова на 1 слово: hello->qwerty hello->qwerty и тд.
Что поменять?

function RWord: String;
var i, j: Integer;
begin
Result := '';
i := Random(5) + 2;
for j := 1 to i do
Result := Result + Char(Random(26) + 97)
end;

{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
memo1.lines.text:=StringReplace(memo1.lines.text , 'hello' , RWord ,[rfreplaceall]);
end;

end.

[Stertor]

i := Random(5) + 2;
for j := 1 to i do
Result := Result + Char(Random(26) + 97)
end;

Вынеси это в отдельную функцию. В коде у тебя рандом срабатывает только 1 раз, оттого и ошибка.

[Stilet]

В коде у тебя рандом срабатывает только 1 раз

Неправда. Рандомизация срабатывает столько сколько срабатывает цикл.
Просто нужно делать так:

procedure TForm1.Button1Click(Sender: TObject);
begin
while pos('hello',memo1.lines.text)<>0 do
 memo1.lines.text:=StringReplace(memo1.lines.text , 'hello' , RWord ,[]);
end;

Ибо сам StringReplace не является итеративно исполняющей функцией, т.е. его параметры переданные один раз не меняются в течении замены, поэтому вызывать его нужно несколько раз.

[Троллинг]

Да ну на х. А где ты раньше был, дорогой товарисч? Ждал, когда я отвечу?