[Delphi] Jak zamienic łańcuch na inny?

Cześć... Mam problem.
Może wiecie, jak w sposób programowy zamienić jakiś łańcuch na inny w komponencie memo?

Np. zamienić: 'dupa' na 'oko'

Memo1.Text := StringReplace(Memo1.Text, 'dupa', 'oko', [rfReplaceAll]);

uses strutils;

memo1.text:=ansireplacetext(memo1.text, 'dupa', 'oko');