[Delphi] wstawianie tekstu po określonym ciągu znaków

Witam!
Czy mógłby ktoś podpowiedzieć, jak w Memo zmienić/wstawić tekst po określonym stringu? Coś w rodzaju ansireplacetext, tylko, żeby zamiast wstawiania zamiast, wstawiała za :).
Dzięki :)

Skoro już używasz AnsiReplaceText... (do StringReplace nie musiałbys dodawac StrUtils, a działa chyba tak samo):

const
  RepText = 'text do zamiany';
  AddText = 'text do dodania';
var
  Text : String;
begin
  //...
  AnsiReplaceText(Text, RepText, RepText + AddText);
  //...