Имею ReplaceDialog и Memo-компонент.
Я хочу заменит в целом тексте в Memo-компонент строка - 'À'
с строка - 'А'.
я делаю процедура, но ана заменяет толка первая строка, как могу заменит
все такие строки в Memo-компонент ?

моя процедура:

with ReplaceDialog1 do
begin
{ Perform a global case-sensitive search for FindText in Memo1 }
ReplaceDialog1.FindText:='À';
ReplaceDialog1.ReplaceText:='А';
SelPos := Pos(FindText, Memo1.Text);
if SelPos > 0 then
begin
Memo1.SelStart := SelPos - 1;
Memo1.SelLength := Length(FindText);
{ Replace selected text with ReplaceText }
Memo1.SelText := ReplaceText;
end;
end;