Function PrintUsingEx(Mask:AnsiString; Number:extended; CommaCh,PointCh:AnsiChar):AnsiString;
VAR  FldWidth,IntLen,i,j,places,PointPos:INTEGER;
     UseComma,IsDec,negative:boolean;
     OutS,IntS:AnsiString;
begin
  negative:=number<0; Number:=abs(Number);
  places:=0; FLdWidth:=length(Mask);
  UseComma:=pos(CommaCh,Mask)>0; IsDec:=pos(PointCh,Mask)>0;
  if IsDec then
     BEGIN
        PointPos:=pos(PointCh,Mask);
        places:=FldWidth-PointPos;
     END;
  str(number:0:places,OutS);  
  if UseComma then
    BEGIN
     j:=0;
     IntS:=copy(OutS,1,length(OutS)-places);
     IntLen:=length(IntS);
     if IsDec then IntLen:=IntLen -1;
     for i:=IntLen downto 2 do
       begin inc(j); if (j mod 3)=0 then insert(CommaCh,OutS,i); end;
    END;
  if length(OutS)<FLdWidth then
     OutS:=spaces(FLdWidth-length(OutS))+OutS;    // это просто добавляет строку пробелов вперед
  if (negative) then OutS:='-'+OutS;
  Result:=OutS;
end;

 str(number:0:places,OutS);

I:int64;
I:=High(Int64);
Str(I:0:20,S);   // даст 9223372036854775807  что правильно

N:extended;
N:=I;
Str(N:0:20,S);  // даст 9223372036854775810.0  <-- т.е. использовать для отображения "протаскивание" через extended - чревато.