procedure ReplaceStrToStrings(AStrings:TStrings;sToken,sRep:string);
var
i,j:integer;
begin
for i:=0 to AStrings.count-1 do
begin
s:=AStrings[i];
j:=Pos(sToken,s);
if (j>0) then
begin
s:=Copy(s,1,j-1)+sRep+Copy(s,j+length(sToken),length(s)-(j+length(sToken)));
AStrings[i] :=s;
end;
end;
end;