[k@Z@k]

Код:

var  ResultFile: TWin32FindData; // информация о файле
      InFName:String; // полное имя файла(имя+путь)
      Size:Int64; //размер файла
...
 FindFirstFile(PChar(InFName), ResultFile);
 Size:=(ResultFile.nFileSizeHigh)*4294967296+ResultFile.nFileSizeLow;