[BDWONG]

Hola como bien dijo el compañero puedes usar la funcion insert
Bueno en base ha eso me puse a realizar una posible implementacicon, bueno sin mas que decir aqui esta

Código Delphi [-]
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;

//Saludos..