Comment obtenir la taille d'un fichier ?

// ouverture du fichier en lecture
int FichierHandle = FileOpen(Fichier, fmOpenRead);
// FileSeek se déplace à 0 octets de la fin du fichier (2 représente la fin du fichier).
// on formate la chaîne (# représente un chiffre)
Label1->Caption = FormatFloat("### ### ### Ko", FileSeek(FichierHandle, 0, 2));
// on germe le fichier
FileClose(FichierHandle);