[lmikle]

Получить его в байтах и поделить на (1024*1024)

Код:

fucntion GetFileSizeMB(AFileName : String) : Double;
var
  F : TSearchRec;
begin
  Try
    If FindFirst(AFileName,faAnyFile,F) <> 0 Then
      Raise Exception.Create('File not found.');
    Result := F.Size / (1024*1024);
  Finally
    FindClose(F);
  End;
end;