[FekalieRex]

Я делаю так:

1. Декларируем переменную типа File of byte
2. Дальше вводим код:

AssignFile(Comp2,Edit1.Text);
Reset(Comp2);
Reps := FileSize(Comp2);
CloseFile(Comp2);

Где:

Comp2 - Я так назвал переменную File of byte
Edit1.Text - Подставляем свой файл
Reps - Переменная для хранения размера файла