[Gudzik11]

точьно есть там i

Код:

 function Replace(Str, X, Y: string): string;
{Str - ñòðîêà, â êîòîðîé áóäåò ïðîèçâîäèòüñÿ çàìåíà.
 X - ïîäñòðîêà, êîòîðàÿ äîëæíà áûòü çàìåíåíà.
 Y - ïîäñòðîêà, íà êîòîðóþ áóäåò ïðîèçâåäåíà çàìåíåíà}

var
  buf1, buf2, buffer: string;
  i: Integer;

begin
  buf1 := '';
  buf2 := Str;
  Buffer := Str;

  while Pos(X, buf2) > 0 do
  begin
    buf2 := Copy(buf2, Pos(X, buf2), (Length(buf2) - Pos(X, buf2)) + 1);
    buf1 := Copy(Buffer, 1, Length(Buffer) - Length(buf2)) + Y;
    Delete(buf2, Pos(X, buf2), Length(X));
    Buffer := buf1 + buf2;
  end;

  Replace := Buffer;
end;

её просто удалить