{$APPTYPE CONSOLE}
uses SysUtils;
var
  f: File;
  l: Integer;
begin
  AssignFile(f, 'TestLib.exe');
  FileMode := 0;
  Reset(f, 1);
  l := FileSize(f);
  WriteLn(l);
end.

или так:

{$APPTYPE CONSOLE}
uses SysUtils;
var
  sr: TSearchRec;
  l: Integer;
begin
if FindFirst('TestLib.exe', faAnyFile, sr) = 0 then
  l := sr.Size;
  WriteLn(l);
end.

Только в современных операционных системах возможны файлы размером больше чем $FFFFFFFF. Для того чтобы извлечь такой размер потребуется переменная типа Int64 и вызов функций API CreateFile, GetFileSize CloseHandle.