Ottenere la dimensione di un file

funzione GetFileSize (const FileName: string): Integer;
var
restr: TSearchRec;
iniziare
Risultato: = 0;

se FindFirst (FileName, faAnyFile, sr) = 0 allora
iniziare
Risultato: = sr.Size;
FindClose (sr);
fine;
fine;