Ошибка: List index out of bounds(2)

program Manager;
 
uses
  Forms,
  GlavnUnit1 in 'GlavnUnit1.pas' {Glavn},
  DataModule1 in 'DataModule1.pas' {DataModule2: TDataModule},
  TablUnit1 in 'TablUnit1.pas' {TKlienti},
  O_progeUnit1 in 'O_progeUnit1.pas' {Oproge},
  PoiskUnit1 in 'PoiskUnit1.pas' {Poisk},
  NewKlientUnit1 in 'NewKlientUnit1.pas' {NewKlient},
  NewTovarUnit1 in 'NewTovarUnit1.pas' {NewTovar},
  NewPostav4ikUnit1 in 'NewPostav4ikUnit1.pas' {NewPostav4ik},
  pe4atUnit1 in 'pe4atUnit1.pas' {Pe4atPrixodTovarov},
  TklientiUnit1 in 'TklientiUnit1.pas' {TTovari},
  TprixodUnit1 in 'TprixodUnit1.pas' {TPrixod},
  TrasxodUnit1 in 'TrasxodUnit1.pas' {TRasxod},
  PribilUnit1 in 'PribilUnit1.pas' {OPribil},
  OprixodtovarovUnit1 in 'OprixodtovarovUnit1.pas' {Oprixodtovarov},
  OrasxodTovarovUnit1 in 'OrasxodTovarovUnit1.pas' {ORasxodTovarov},
  pe4atRasxodUnit1 in 'pe4atRasxodUnit1.pas' {Pe4atPasxod},
  Postav4ikUnit1 in 'Postav4ikUnit1.pas' {Postavsh},
  PrixodTovUnit2 in 'PrixodTovUnit2.pas' {TPrixodTov},
  TrasxodTovUnit2 in 'TrasxodTovUnit2.pas' {TrasxodTov},
  Unit2 in 'Unit2.pas' {Avtoriz},
  Unit3 in 'Unit3.pas' {Main},
  Unit4 in 'Unit4.pas' {Rabochie},
  Unit5 in 'Unit5.pas' {SpecRab},
  Unit6 in 'Unit6.pas' {FormUslugi},
  Unit1 in 'Unit1.pas' {FormSpec},
  Unit7 in 'Unit7.pas' {FormDobRab},
  Unit8 in 'Unit8.pas' {FormBrigads},
  Unit9 in 'Unit9.pas' {FormBR},
  Unit10 in 'Unit10.pas' {FormGrafik},
  Unit11 in 'Unit11.pas' {Admin},
  Unit12 in 'Unit12.pas' {Spravka},
  Unit13 in 'Unit13.pas' {FormSmeta};
 
{$R *.res}
 
begin
  Application.Initialize;
    Application.CreateForm(TDataModule2, DataModule2);
  Application.CreateForm(TAvtoriz, Avtoriz);
  Application.CreateForm(TMain, Main);
  Application.CreateForm(TRabochie, Rabochie);
  Application.CreateForm(TSpecRab, SpecRab);
  Application.CreateForm(TFormUslugi, FormUslugi);
  Application.CreateForm(TFormSpec, FormSpec);
  Application.CreateForm(TFormDobRab, FormDobRab);
  Application.CreateForm(TFormBrigads, FormBrigads);
  Application.CreateForm(TFormBR, FormBR);
  Application.CreateForm(TFormGrafik, FormGrafik);
  Application.CreateForm(TAdmin, Admin);
  Application.CreateForm(TSpravka, Spravka);
  Application.CreateForm(TFormSmeta, FormSmeta);
  Application.CreateForm(TGlavn, Glavn);
  Application.CreateForm(TTKlienti, TKlienti);
  Application.CreateForm(TOproge, Oproge);
  Application.CreateForm(TPoisk, Poisk);
  Application.CreateForm(TNewKlient, NewKlient);
  Application.CreateForm(TNewTovar, NewTovar);
  Application.CreateForm(TNewPostav4ik, NewPostav4ik);
  Application.CreateForm(TPe4atPrixodTovarov, Pe4atPrixodTovarov);
  Application.CreateForm(TTTovari, TTovari);
  Application.CreateForm(TTPrixod, TPrixod);
  Application.CreateForm(TTRasxod, TRasxod);
  Application.CreateForm(TOPribil, OPribil);
  Application.CreateForm(TOprixodtovarov, Oprixodtovarov);
  Application.CreateForm(TORasxodTovarov, ORasxodTovarov);
  Application.CreateForm(TPe4atPasxod, Pe4atPasxod);
  Application.CreateForm(TPostavsh, Postavsh);
  Application.CreateForm(TTPrixodTov, TPrixodTov);
  Application.CreateForm(TTrasxodTov, TrasxodTov);
  Application.Run;
end.

CheckLogin

unit Unit3;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Menus, shellapi, jpeg, ExtCtrls, Comobj, ComCtrls, XPMan;
 
type
  TMain = class(TForm)
    Image1: TImage;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    N2: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N3: TMenuItem;
    N5: TMenuItem;
    N4: TMenuItem;
    N13: TMenuItem;
    Button1: TButton;
    Button2: TButton;
    Button4: TButton;
    Button5: TButton;
    N14: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    N17: TMenuItem;
    N18: TMenuItem;
    N19: TMenuItem;
    N20: TMenuItem;
    G1: TMenuItem;
    XPManifest1: TXPManifest;
    StatusBar1: TStatusBar;
    Timer1: TTimer;
    Button6: TButton;
    Button7: TButton;
    Button3: TButton;
    procedure N4Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure N19Click(Sender: TObject);
    procedure N20Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure G1Click(Sender: TObject);
    procedure N16Click(Sender: TObject);
    procedure N17Click(Sender: TObject);
    procedure N15Click(Sender: TObject);
    procedure N14Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
  private
    { Private declarations }
  public
 { Public declarations }
   Procedure DisplayHint(Sender: TObject);
  end;
 
var
  Main: TMain;
 
implementation
 
uses GlavnUnit1, Unit4, O_progeUnit1, Unit6, DataModule1, Unit8, Unit10,
  TablUnit1, Unit11, Unit2, Unit1, TklientiUnit1, Postav4ikUnit1,
  OprixodtovarovUnit1, OrasxodTovarovUnit1, Unit12, Unit13;

function TMain.CheckLogin(Avtoriz:TAvtoriz):boolean;
begin
  Result := (Avtoriz.Edit1.Text=DataModule2.Avtoriz.FieldByName('Password').Value)
  and (Avtoriz.DBLookupComboBox1.Text='Àäìèíèñòðàòîð');
   N18.Enabled:=Result;
   N13.Enabled:=result;
   Button5.Enabled:=result;
   Button7.Enabled:=Result;
   Show;
end;
 
procedure TMain.DisplayHint(Sender: TObject);
var
  Counter, NumComps: integer;
begin
  with Screen.ActiveForm do
  begin
    NumComps := ControlCount - 1;
    for Counter := 0 to NumComps do
       if (TControl(Controls[Counter]).Name = 'StatusBar1') then
      begin
        if (Application.Hint = '') then
          TStatusBar(Controls[Counter]).Panels[2].Text:= 'No hint'
        else
          TStatusBar(Controls[Counter]).Panels[2].Text:= Application.Hint;
        break;
      end;
  end;
end;
 
 
 
procedure TMain.N4Click(Sender: TObject);
begin
Close;
end;
 
procedure TMain.Timer1Timer(Sender: TObject);
begin
 StatusBar1.Panels[0].Text := FormatDateTime('dd.mm.yyyy', Date);
 StatusBar1.Panels[1].Text := FormatDateTime('hh:mm:ss', Time);
end;
 
procedure TMain.Button7Click(Sender: TObject);
begin
  FormBrigads := TFormBrigads.Create(Application);
  FormBrigads.Show;
  Hide;
end;
 
procedure TMain.Button5Click(Sender: TObject);
begin
 Glavn := TGlavn.Create(Application);
 Glavn.Show;
  Hide;
end;
 
procedure TMain.N8Click(Sender: TObject);
begin
 Rabochie := TRabochie.Create(Application);
 Rabochie.Show;
  Hide;
end;
 
procedure TMain.Button1Click(Sender: TObject);
begin
 Rabochie := TRabochie.Create(Application);
  Rabochie.Show;
  Hide;
end;
 
procedure TMain.N5Click(Sender: TObject);
begin
  Oproge := TOproge.Create(Application);
 Oproge.Show;
  Hide;
end;
 
procedure TMain.Button6Click(Sender: TObject);
begin
FormUslugi := TFormUslugi.Create(Application);
FormUslugi.Show;
  Hide;
end;
 
procedure TMain.Button4Click(Sender: TObject);
begin
FormGrafik := TFormGrafik.Create(Application);
FormGrafik.Show;
  Hide;
end;
 
procedure TMain.Button2Click(Sender: TObject);
begin
TKlienti := TTKlienti.Create(Application);
TKlienti.Show;
  Hide;
end;
 
procedure TMain.N19Click(Sender: TObject);
begin
Admin := TAdmin.Create(Application);
Admin.Show;
  Hide;
end;
 
procedure TMain.N20Click(Sender: TObject);
begin
Avtoriz := TAvtoriz.Create(Application);
Avtoriz.Show;
Avtoriz.Edit1.Clear;
  Hide;
end;
 
procedure TMain.N9Click(Sender: TObject);
begin
 FormBrigads := TFormBrigads.Create(Application);
FormBrigads.Show;
  Hide;
end;
 
procedure TMain.N10Click(Sender: TObject);
begin
FormSpec := TFormSpec.Create(Application);
FormSpec.Show;
  Hide;
end;
 
procedure TMain.N11Click(Sender: TObject);
begin
TTovari := TTTovari.Create(Application);
TTovari.Show;
  Hide;
end;
 
procedure TMain.N12Click(Sender: TObject);
begin
TKlienti := TTKlienti.Create(Application);
TKlienti.Show;
  Hide;
end;
 
procedure TMain.G1Click(Sender: TObject);
begin
Postavsh :=TPostavsh.Create(Application);
Postavsh.Show;
  Hide;
end;
 
procedure TMain.N16Click(Sender: TObject);
begin
Oprixodtovarov.ShowModal;
end;
 
procedure TMain.N17Click(Sender: TObject);
begin
ORasxodTovarov.ShowModal;
end;
 
procedure TMain.N15Click(Sender: TObject);
begin
Main.Hide;
Glavn.Show;
end;
 
procedure TMain.N14Click(Sender: TObject);
begin
Spravka.Show;
end;
 
procedure TMain.Button3Click(Sender: TObject);
begin
FormSmeta := TFormSmeta.Create(Application);
FormSmeta.Show;
  Hide;
end;
 
procedure TMain.N6Click(Sender: TObject);
const
  xlHairline = 1;
  xlThin = 2;
  xlMedium = -4138;
  xlThick = 4;
  xlContinuous = 1;
var
  exApp, exBook, exSh, exRng : OleVariant;
  VArr : Variant;
i, j : Integer;
begin
  exApp := CreateOleObject('Excel.Application');
  exApp.Visible := True;
  exBook := exApp.Workbooks.Add;
  exSh := exBook.Worksheets[1];
  DataModule2.Rabochie.Open;
  exSh.Cells[3, 2].Value := 'Äàòà ñîçäàíèÿ: '
  + FormatDateTime('dd.mm.yyyy"-"hh:nn:ss:zzz', Now);
  exSh.Cells[1, 4].Value := 'Ðàáî÷èå ñòðîèòåëüíîé êîìïàíèè';
  exSh.Cells[1, 4].Font.Size := 16;
  exSh.Cells[1, 4].Font.Bold := True;
  VArr := VarArrayCreate([1, DataModule2.Rabochie.RecordCount + 1, 1,  DataModule2.Rabochie.FieldCount], varVariant);
  exRng := exSh.Range[exSh.Cells[5, 2],
    exSh.Cells[3, 2].Offset[DataModule2.Rabochie.RecordCount,  DataModule2.Rabochie.FieldCount - 1]];
  j := 1;
  for i := 0 to  DataModule2.Rabochie.FieldCount - 1 do
    VArr[j, i + 1] :=  DataModule2.Rabochie.Fields[i].FieldName;
   DataModule2.Rabochie.DisableControls;
  try
     DataModule2.Rabochie.First;
    while not  DataModule2.Rabochie.Eof do
    begin
      Inc(j);
      for i := 0 to  DataModule2.Rabochie.FieldCount - 1 do
        VArr[j, i + 1] :=  DataModule2.Rabochie.Fields[i].Value;
       DataModule2.Rabochie.Next;
    end;
  finally
    DataModule2.Rabochie.EnableControls;
  end;
  exRng.Value := VArr;
  exRng.Borders.LineStyle := xlContinuous;
  exRng.Borders.Weight := xlThin;
  exRng.Rows[1].Font.Bold := True;
  exRng.Rows[1].Borders.Weight := xlMedium;
  exRng.Columns.AutoFit;
end;
 
procedure TMain.N7Click(Sender: TObject);
const
  xlHairline = 1;
  xlThin = 2;
  xlMedium = -4138;
  xlThick = 4;
  xlContinuous = 1;
var
  exApp, exBook, exSh, exRng : OleVariant;
  VArr : Variant;
i, j : Integer;
begin
  exApp := CreateOleObject('Excel.Application');
  exApp.Visible := True;
  exBook := exApp.Workbooks.Add;
  exSh := exBook.Worksheets[1];
  DataModule2.Klient.Open;
  exSh.Cells[3, 2].Value := 'Äàòà ñîçäàíèÿ: '
  + FormatDateTime('dd.mm.yyyy"-"hh:nn:ss:zzz', Now);
  exSh.Cells[1, 4].Value := 'Îáúåêòû ñòðîèòåëüíîé êîìïàíèè';
  exSh.Cells[1, 4].Font.Size := 16;
  exSh.Cells[1, 4].Font.Bold := True;
  VArr := VarArrayCreate([1, DataModule2.Klient.RecordCount + 1, 1,  DataModule2.Klient.FieldCount], varVariant);
  exRng := exSh.Range[exSh.Cells[5, 2],
    exSh.Cells[3, 2].Offset[ DataModule2.Klient.RecordCount,  DataModule2.Klient.FieldCount - 1]];
  j := 1;
  for i := 0 to  DataModule2.Klient.FieldCount - 1 do
    VArr[j, i + 1] :=  DataModule2.Klient.Fields[i].FieldName;
   DataModule2.Klient.DisableControls;
  try
    DataModule2.Klient.First;
    while not  DataModule2.Klient.Eof do
    begin
      Inc(j);
      for i := 0 to  DataModule2.Klient.FieldCount - 1 do
        VArr[j, i + 1] :=  DataModule2.Klient.Fields[i].Value;
       DataModule2.Klient.Next;
    end;
  finally
    DataModule2.Klient.EnableControls;
  end;
  exRng.Value := VArr;
  exRng.Borders.LineStyle := xlContinuous;
  exRng.Borders.Weight := xlThin;
  exRng.Rows[1].Font.Bold := True;
  exRng.Rows[1].Borders.Weight := xlMedium;
  exRng.Columns.AutoFit;
end;
 
procedure TMain.FormCreate(Sender: TObject);
var
  f:TAvtoriz;
begin
  Application.OnHint := DisplayHint;
  f:=TAvtoriz.Create(nil);
  try
    if f.showmodal=mrOK then
    begin
      if not CheckLogin(f) then
        Application.Terminate;
    end
    else
    begin
        Application.Terminate;
    end;
 
  finally
    f.Free;
  end;
end;

procedure TMain.FormCreate(Sender: TObject);
...
  Application.OnHint := DisplayHint;
 
...
procedure TMain.DisplayHint(Sender: TObject);
var
  Counter, NumComps: integer;
begin
  with Screen.ActiveForm do
  begin
    NumComps := ControlCount - 1;
    for Counter := 0 to NumComps do
       if (TControl(Controls[Counter]).Name = 'StatusBar1') then
      begin
        if (Application.Hint = '') then
          TStatusBar(Controls[Counter]).Panels[2].Text:= 'No hint'
        else
          TStatusBar(Controls[Counter]).Panels[2].Text:= Application.Hint;
        break;
      end;
  end;
end;

while not MyQuery1.Eof do
    begin
      ComboBox1.Items.Add(MyQuery1.fieldByName('имяполя').AsString);
      MyQuery1.Next
    end;