Как определить размер файла

// Если файл не существует, то вместо размера файла функция верн¸т -1
function
 GetFileSize(FileName: String
): Integer;
var

  FS: TFileStream;
begin

  try

    FS := TFileStream.Create(Filename, fmOpenRead);
  except

    Result := -1;
  end
;
  if
 Result <> -1 then
 Result := FS.Size;
  FS.Free;
end
;

procedure
 TForm1.FormCreate(Sender: TObject);
begin

  ShowMessage(IntToStr(GetFileSize('c:prova.pdf')));
end
;

Другое по теме:

• Как скопировать все файлы вместе с подкаталогами
• Копирование файлов
• Удалить файл в корзину? Запросто!