delphi tamaño de un fichero

procedure TForm1.Button1Click(Sender: TObject);
var
  F: File of byte;
begin
  AssignFile( F, 'c:\ftp2.bat' );
  Reset( F );
  ShowMessage( IntToStr( FileSize( F ) ) + ' bytes' );
  CloseFile( F );

end;







.