Замена подстрок

Кто-нибудь знает быстрый алгоритм поиска и замены всех найденных подстрок sub1 на sub2 в строке str?

Это должно работать:

function ReplaceSub(str, sub1, sub2: String): String;

var

aPos: Integer;

rslt: String;

begin

aPos := Pos(sub1, str);

rslt := '';

while (aPos <> 0) do begin

rslt := rslt + Copy(str, 1, aPos - 1) + sub2;

Delete(str, 1, aPos + Length(sub1) - 1);

aPos := Pos(sub1, str);

end;

Result := rslt + str;

end;

Спасибо Сергею Шамайтис за исправление ошибки. [000252]