function FileSize(const aFilePath: string): Int64;
var
vSR : TSearchRec;
begin
if FindFirst(aFilePath, faAnyFile, vSR ) = 0 then
begin
Result := vSR.Size;
FindClose(vSR);
end
else
Result := -1;
end;
Мультиплатформенный вариант без открытия файла (размер берется из файловой системы).