Memo1.Text := StringReplace(Memo1.Text,'вот такая вот загагулина','вот не такая загагулина',[rfReplaceAll]);