Obtenir rapidement la taille d'un fichier

function GetFilesize(sFileName: string; iPrecision: integer): string;
var
i: longint;
f: file of byte;
isize: extended;
begin
//desactiver les erreurs les erreurs d'E/S
{$I-}
assignfile(f, sFileName);
reset(f);
i := filesize(f);
CloseFile(F);
{$I+}

isize := i / 1024;
result := floattostrf(iSize, fffixed, 7, iPrecision) + ' ko';
if iSize > 1024 then begin
iSize := iSize / 1024;
result := floattostrf(iSize, fffixed, 7, iPrecision) + ' mo';
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
//GetFilesize (Fichier, décimal après la virgule)
showmessage(GetFilesize('c: est.bmp', 2));
end;