[ALexandr555]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Function Replace(input,rep:string): string; var copybook: string; z,len: integer; begin  copybook:=AnsiLowerCase(input);  z:=pos(rep,copybook);   len:=0;   While z<>0 do    begin     delete(input,z-len,length(rep));     len:=len+length(rep);     z:=posEx(rep,copybook,z+1);    end;  result:=input; end;

вот получилось довольно быстро то что мне надо