str_replace как написать красиво?

может у кого есть хорошая функция? для тех кто работал в дельфи или php,
там есть функции stringreplace и str_replace соответственно.
нужно как в php красиво и быстро. на двух циклах идёт криво.
может есть исходник?

[Piligrim]

function ReplaceStr(const S, Srch, Replace: string): string;
var
 I: Integer;
 Source: string;
begin
 Source := S;
 Result := '';
 repeat
  I := Pos(Srch, Source);
  if I > 0 then begin
   Result := Result + Copy(Source, 1, I - 1) + Replace;
   Source := Copy(Source, I + Length(Srch), MaxInt);
  end
  else Result := Result + Source;
 until I <= 0;
end;

Это исходник под Дельфи. Чуть-чуть обработать напильником

Точно! Стандартный VCL. Чё-т и в мыслях небыло... Спасибо