TEmp=record
  Otdel: String[16];
  Dolg: String[21];
  FIO: String[31];
  Oklad: Integer;
  Auto: String[3];
  Prava: String[3];
  Pass: String[13];
  end;

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.Buttons, Data.DB,
  Data.Win.ADODB;

type
  TForm1 = class(TForm)
    BitBtn1: TBitBtn;
    ADOConnection1: TADOConnection;
    Employees: TADOTable;
    ADOQuery1: TADOQuery;
    procedure FormShow(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
  TEmp=record
  Otdel: String[16];
  Dolg: String[21];
  FIO: String[31];
  Oklad: Integer;
  Auto: String[3];
  Prava: String[3];
  Pass: String[13];
  end;

var
  Form1: TForm1;
  F:File of TEmp;
  num:integer;

implementation

{$R *.dfm}

procedure TForm1.BitBtn1Click(Sender: TObject);
var zap:TEmp;
var i:integer;
begin

AssignFile(F, ExtractFilePath(Application.ExeName)+'org_tab.bin');
reset(f);
for i:= 1 to 91 do
begin
read(f, zap);
Employees.Append;
Employees.FieldByName('EmployeesID').AsInteger:=num+i;
Employees.FieldByName('FIO').AsString:=zap.FIO;
Employees.FieldByName('Dolg').AsString:=zap.Dolg;
Employees.FieldByName('Auto').AsString:=zap.Auto;
Employees.FieldByName('Prava').AsString:=zap.Prava;
Employees.FieldByName('Pass').AsString:=zap.Pass;
Employees.FieldByName('Oklad').AsInteger:=zap.Oklad;
Employees.Post;

end;

end;

procedure TForm1.FormShow(Sender: TObject);
begin
ADOConnection1.Connected:=False;
ADOConnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source='+ExtractFilePath(Application.ExeName);
ADOConnection1.ConnectionString:=ADOConnection1.ConnectionString+'org.mdb;Mode=Share Deny None;Jet OLEDB:System database="";Jet OLEDB:Registry Path="";Jet OLEDB:Database Password="";';
ADOConnection1.ConnectionString:=ADOConnection1.ConnectionString+'Jet OLEDB:Engine Type=5;Jet OLEDB:Database Locking Mode=1;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;';
ADOConnection1.ConnectionString:=ADOConnection1.ConnectionString+'Jet OLEDB:New Database Password="";Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;Jet OLEDB:Don''t Copy Locale on Compact=False;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False;';

ADOConnection1.Connected:=True;

Employees.Active:=True;
ADOQuery1.Active:=True;
num:=ADOQuery1.FieldByName('Maximum').AsInteger;
end;

end.

1.  sizeof(zap.Dolg) = ?
2.  reset(f, ?);
3.  eof(f); ?

  TEmp=record
    Otdel: array [0..15] of ansichar ;
    Dolg: array [0..20] of ansichar ;
    FIO: array [0..30] of ansichar;
    Oklad: Integer;
    Auto: array [0..2] of ansichar;
    Prava: array [0..2] of ansichar;
    Pass: array [0..12] of ansichar;
  end;