Sur Delphi 6 EP :

function GetFileSize(FileName: string): string;
var
Size: string;
f: file of byte;
begin
AssignFile(f, FileName); Reset(f);
if FileSize(f) / 1024<1024
    then Size:=FormatFloat('0.00',FileSize(f) / 1024)+' Ko'
    else Size:=FormatFloat('0.00',FileSize(f) / 1048576)+' Mo';
    //modifier '0.00' pour modifier l'arrondie
CloseFile(f);
Result:=Size;
end;         
 
Appeller la fonction GetFileSize() dans votre source.
FileName correspond au nom complet du fichier.
Size retourne la taille du fichier (arrondie a 2 chiffres
apres la virgule ici) et l'unité (Ko ou Mo) du fichier.
 
Sur Delphi 6 Pro : Ben y a FileSizeByName.