function _changeString(const source:string):string;
var
index,size:integer;
copyString:string;
begin
copyString:=source;
size:=Length(copyString);
if size mod 2=0 then
begin
Insert('.',copyString,2);
if size>2 then Insert('.',copyString,4);
index:=4;
while(index < Length(copyString)-2) do
begin
Inc(index,3);
Insert('.',copyString,index);
end;
end;
Result:=copyString;
end;