селект для записи в бд

unit Unit2;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Data.DB, Data.Win.ADODB, Vcl.StdCtrls,
  Data.Bind.Components, Data.Bind.DBScope, Data.FMTBcd, Data.SqlExpr,
  Data.Bind.EngExt, Vcl.Bind.DBEngExt, System.Rtti, System.Bindings.Outputs,
  Vcl.Grids, Vcl.DBGrids , Unit3;
 
type
  TForm2 = class(TForm)
 
    ADOConnection1: TADOConnection;
 
    device: TADOTable;
    person: TADOTable;
    Button1: TButton;
    deviceid: TIntegerField;
    deviceTyp: TWideStringField;
    deviceHersteller: TWideStringField;
    deviceDatumAnschafung: TWideStringField;
    deviceHostname: TWideStringField;
    deviceOperationSystem: TWideStringField;
    deviceModell: TWideStringField;
    deviceBemerkung: TWideStringField;
    deviceSerialNum: TWideStringField;
    eintrag: TADOTable;
    DataSource1: TDataSource;
    deviceAbfrage: TADOQuery;
    DBGrid1: TDBGrid;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;
 
var
  Form2: TForm2;
 
 
implementation
 
{$R *.dfm}
 
procedure TForm2.Button1Click(Sender: TObject);
begin
Form3.Show;
end;
 
end.

unit Unit3;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Data.DB, Data.Win.ADODB, Vcl.Grids,
  Vcl.DBGrids;
 
type
  TForm3 = class(TForm)
    DataSource1: TDataSource;
    ADOConnection1: TADOConnection;
    person: TADOTable;
    DBGrid1: TDBGrid;
    DataSource2: TDataSource;
    deviceart: TADOTable;
    DBGrid2: TDBGrid;
    DBGrid3: TDBGrid;
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;
 
var
  Form3: TForm3;
 
implementation
 
{$R *.dfm}
 
end.