funksjon GetFileSize (konst Filename: string): Integer; Var sr: TSearchRec; begynne Resultat: = 0;
hvis FindFirst (Filename, faAnyFile, sr) = 0, så begynner Resultat: = sr.Size; FindClose (sr); slutt; end;