Formato XXXXXXXX para xx,x

[Aleksander]

Olá amigos, no exemplo abaixo o Label1 fica da seguinte forma 25410320, gostaria que ele ficasse assim 25,4.

Como posso fazer isso?

Grato pela atenção.

procedure TForm1.Button1Click(Sender: TObject);
var
  S: string;
  Free: Int64;
begin
  Free := DiskFree(0);
  S := 'Espaço livre em (C): ' + intToStr(Free div 1024);
  Label1.Caption := S;
end;

[Jhonas]

no exemplo abaixo o Label1 fica da seguinte forma 25410320, gostaria que ele ficasse assim 25,4.

Como posso fazer isso?

Tente assim :

procedure TForm1.Button1Click(Sender: TObject);
var
  S: string;
  Free: Int64;
begin
  Free := DiskFree(0);
  S := 'Espaço livre em (C): ' + intToStr(Free div 1024);
  Label1.Caption := formatfloat(',0.00',(((Free div 1024)div 1024)div 1024))+' GB';
end;

abraço