Ребята этот код ошибку выдает, может вы что-то другова знайте?      

[bprocedure[/b] TForm1.Button1Click(Sender: TObject);
var
 f: file of Byte;
 size: Longint;
begin
 if OpenDialog1.Execute then
begin
 AssignFile(f, OpenDialog1.FileName);
 Reset(f);
try
 size := FileSize(f);
 Label1.Caption := 'File Size is ' + IntToStr(size) + ' Byte';
finally
 CloseFile(f);
 Edit1.Text := OpenDialog3.FileName;
 end;
end;
end;

Build
 [Warning] Unit1.pas(131): Unsafe type 'f: file of Byte'
 [Warning] Unit1.pas(132): Unsafe type 'f: file of Byte'
 [Warning] Unit1.pas(134): Unsafe type 'f: file of Byte'
 [Warning] Unit1.pas(137): Unsafe type 'f: file of Byte'

1. Не пишите f: file of Byte;, объявите просто f: file;. Для файлов "без типа" и так подразумевается тип "байт".
2. Warning - не ошибка, а лишь предупреждение.
3. Почитайте хорошую статью про типы файлов в Делфи:
http://www.delphicorner.f9.co.uk/articles/misc14.htm

hasherfrog

Спасибо!