[ALexandr555]

Код:

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;

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