{
Replace all "a" to "b" in string "s".
Flag = 1 - Replace All, 2 - Not Case sensitive
}
function StrReplace(s,a,b:String; Flags:Integer):String;
var p:Integer;
begin
 if iAnd(Flags,1)=0
 then p:=Pos(a,s)
 else p:=Pos(UpCaseStr(a),UpCaseStr(s));
 if p=0 then StrReplace:=s else begin
  if iAnd(Flags,2)=0
  then StrReplace:=Copy(s,1,p-1)+b+Copy(s,p+Length(a))
  else StrReplace:=Copy(s,1,p-1)+b+StrReplace(Copy(s,p+Length(a)),a,b,Flags);
 end;
end;
