ADOTable1: Cannot perform this operation on a closed dataset. Понимаю, что нужно открыть таблицу, но куда это вписать

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids, DBGrids, ComCtrls, DB, ADODB, RpCon, RpConDS,
  RpBase, RpSystem, RpDefine, RpRave, ExtCtrls;
 
type
  TForm1 = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    ADOConnection1: TADOConnection;
    ADOTable1: TADOTable;
    ADOTable1Gruppa: TIntegerField;
    ADOTable1KodKursanta: TAutoIncField;
    ADOTable1Familiya: TWideStringField;
    ADOTable1Imya: TWideStringField;
    ADOTable1Otchestvo: TWideStringField;
    ADOTable1RezultatVnutrennego: TWideStringField;
    ADOTable1Dopusk: TWideStringField;
    ADOTable1RezultatGIBDD: TWideStringField;
    ADOTable1KodAvto: TIntegerField;
    ADOTable1KodInst: TIntegerField;
    ADOTable2: TADOTable;
    ADOTable2Gruppa: TWideStringField;
    ADOTable2DataZanyatiya: TWideStringField;
    ADOTable2VremyaZanyatiya: TWideStringField;
    ADOTable2VremyaVyezda: TWideStringField;
    ADOTable2ProidenoChasov: TIntegerField;
    ADOTable2DataEkzamena: TWideStringField;
    ADOTable2VremyaEkzamena: TWideStringField;
    DataSource1: TDataSource;
    DataSource2: TDataSource;
    ADOTable3: TADOTable;
    ADOTable4: TADOTable;
    ADOTable4KodInst: TAutoIncField;
    ADOTable4Familiya: TWideStringField;
    ADOTable4Imya: TWideStringField;
    ADOTable4Otchestvo: TWideStringField;
    ADOTable4DataRozhdeniya: TWideStringField;
    ADOTable4Stazh: TIntegerField;
    DataSource3: TDataSource;
    DataSource4: TDataSource;
    Button2: TButton;
    DBGrid1: TDBGrid;
    Button1: TButton;
    Button3: TButton;
    DBGrid2: TDBGrid;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    DBGrid3: TDBGrid;
    DBGrid4: TDBGrid;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Button7: TButton;
    Button8: TButton;
    Button9: TButton;
    Button10: TButton;
    Button11: TButton;
    Button12: TButton;
    ADOTable3KodAvto: TAutoIncField;
    ADOTable3Nomer: TWideStringField;
    ADOTable3Marka: TWideStringField;
    ADOTable3Cvet: TWideStringField;
    ADOTable3DataVypuska: TWideStringField;
    ADOTable3Tehosmotr: TWideStringField;
    ADOTable3Probeg: TWideStringField;
    RvProject1: TRvProject;
    RvDataSetConnection1: TRvDataSetConnection;
    Button13: TButton;
    RvProject2: TRvProject;
    RvDataSetConnection2: TRvDataSetConnection;
    RvProject3: TRvProject;
    RvDataSetConnection3: TRvDataSetConnection;
    Button14: TButton;
    Button15: TButton;
    Edit1: TEdit;
    Button16: TButton;
    Label5: TLabel;
    Button17: TButton;
    Label6: TLabel;
    Button18: TButton;
    RadioGroup1: TRadioGroup;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button10Click(Sender: TObject);
    procedure Button11Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
    procedure Button9Click(Sender: TObject);
    procedure Button12Click(Sender: TObject);
    procedure Button13Click(Sender: TObject);
    procedure Button14Click(Sender: TObject);
    procedure Button15Click(Sender: TObject);
    procedure Button16Click(Sender: TObject);
    procedure Button17Click(Sender: TObject);
    procedure Button18Click(Sender: TObject);
    procedure RadioGroup1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
uses Unit2, Unit3, Unit4, Unit5;
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
form2.button1.Visible:=true;
form2.button2.Visible:=false;
form2.ShowModal;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
with form2 do
begin
form2.button1.Visible:=false;
form2.button2.Visible:=true;
edit1.text:=ADOTable1.FieldByName('Gruppa').AsString;
edit2.text:=ADOTable1.FieldByName('Familiya').AsString;
edit3.text:=ADOTable1.FieldByName('Imya').AsString;
edit4.text:=ADOTable1.FieldByName('Otchestvo').AsString;
edit5.text:=ADOTable1.FieldByName('ResultVnutr').AsString;
edit6.text:=ADOTable1.FieldByName('Dopusk').AsString;
edit7.text:=ADOTable1.FieldByName('ResultGIBDD').AsString;
edit8.text:=ADOTable1.FieldByName('KodAvto').AsString;
edit9.text:=ADOTable1.FieldByName('KodInst').AsString;
end;
form2.showmodal;
 
 
end;
 
procedure TForm1.Button3Click(Sender: TObject);
begin
ADOTable1.Delete;
end;
 
procedure TForm1.Button4Click(Sender: TObject);
begin
form3.button1.Visible:=true;
form3.button2.Visible:=false;
form3.ShowModal;
end;
 
procedure TForm1.Button6Click(Sender: TObject);
begin
ADOTable2.Delete;
end;
 
procedure TForm1.Button5Click(Sender: TObject);
begin
with form3 do
begin
form3.button1.Visible:=false;
form3.button2.Visible:=true;
edit1.text:=ADOTable2.FieldByName('Gruppa').AsString;
edit2.text:=ADOTable2.FieldByName('DataZanatiya').AsString;
edit3.text:=ADOTable2.FieldByName('VremyaZanatiya').AsString;
edit4.text:=ADOTable2.FieldByName('VremyaVyezda').AsString;
edit5.text:=ADOTable2.FieldByName('ProideniChasov').AsString;
edit6.text:=ADOTable2.FieldByName('DataExam').AsString;
edit7.text:=ADOTable2.FieldByName('VremyaExam').AsString;
end;
form3.showmodal;
 
 
end;
 
procedure TForm1.Button7Click(Sender: TObject);
begin
form4.button1.Visible:=true;
form4.button2.Visible:=false;
form4.ShowModal;
end;
 
procedure TForm1.Button10Click(Sender: TObject);
begin
form5.button1.Visible:=true;
form5.button2.Visible:=false;
form5.ShowModal;
end;
 
procedure TForm1.Button11Click(Sender: TObject);
begin
with form5 do
begin
form5.button1.Visible:=false;
form5.button2.Visible:=true;
edit1.text:=ADOTable4.FieldByName('Familiya').AsString;
edit2.text:=ADOTable4.FieldByName('Imya').AsString;
edit3.text:=ADOTable4.FieldByName('Otchestvo').AsString;
edit4.text:=ADOTable4.FieldByName('DataRozhdenia').AsString;
edit5.text:=ADOTable4.FieldByName('Stazh').AsString;
end;
form5.showmodal;
 
end;
 
procedure TForm1.Button8Click(Sender: TObject);
begin
with form4 do
begin
form4.button1.Visible:=false;
form4.button2.Visible:=true;
edit1.text:=ADOTable3.FieldByName('Nomer').AsString;
edit2.text:=ADOTable3.FieldByName('Marka').AsString;
edit3.text:=ADOTable3.FieldByName('Cvet').AsString;
edit4.text:=ADOTable3.FieldByName('DataVypuska').AsString;
edit5.text:=ADOTable3.FieldByName('Tehosmotr').AsString;
edit6.text:=ADOTable3.FieldByName('Probeg').AsString;
end;
 
end;
 
procedure TForm1.Button9Click(Sender: TObject);
begin
ADOTable3.Delete;
end;
 
procedure TForm1.Button12Click(Sender: TObject);
begin
ADOTable4.Delete;
end;
 
procedure TForm1.Button13Click(Sender: TObject);
begin
RvProject1.Execute;
end;
 
procedure TForm1.Button14Click(Sender: TObject);
begin
RvProject2.Execute;
end;
 
procedure TForm1.Button15Click(Sender: TObject);
begin
RvProject3.Execute;
end;
 
procedure TForm1.Button16Click(Sender: TObject);
begin
ADOTable1.Locate('Familiya',Edit1.Text,[loPartialKey,LoCaseInsensitive]);
end;
 
procedure TForm1.Button17Click(Sender: TObject);
begin
 
ADOTable1.Filtered:=false;
ADOTable1.Filter:='ResultGIBDD=''Ñäàí''';
ADOTable1.Filtered:=true;
 
end;
 
procedure TForm1.Button18Click(Sender: TObject);
begin
ADOTable1.Filtered:=false;
end;
 
procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
if RadioGroup1.ItemIndex=0 then
   begin
ADOTable4.Sort:='Familiya';
   end;
 if RadioGroup1.ItemIndex=1 then
   begin
ADOTable4.Sort:='';
   end;
end;
 
end.