set . i 99.999.098.123

Nogen som ligger inde med en function som kan sætte de rigtige "." således at
9999 bliver 9.999 og
99999 bliver 99.999 og
999999 bliver 999.999 og
9999999 bliver 9.999.999 osv.

det skal nok være noget i stil med:

procedure TForm1.SetDotInByte(aByteLabel: TLabel; aValue: Int64);
var
  i: Integer;
  TmpStr: String;
begin
  TmpStr:= IntToStr(aValue);
  for i:= Length(TmpStr) downto 1 do
    if (i mod 3 = 0) and (i <> length(TmpStr)) then
      insert('.', TmpStr, i);
  aByteLabel.Caption:= TmpStr;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  SetDotInByte(Label9, 9999);
end;