Кнопка добавить с запросом

unit Unit8;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Mask, DBCtrls, Grids, DBGrids, Buttons, DB, ADODB,
  OleServer, ExcelXP, ComCtrls, DBGridEh, DBCtrlsEh, DBLookupEh;
 
type
  TForm8 = class(TForm)
    Label2: TLabel;
    Label3: TLabel;
    BitBtn1: TBitBtn;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    DBEdit2: TDBEdit;
    DBEdit4: TDBEdit;
    DBEdit5: TDBEdit;
    DBEdit3: TDBEdit;
    DBLookupComboBox1: TDBLookupComboBox;
    DBLookupComboBox2: TDBLookupComboBox;
    DBLookupComboBox3: TDBLookupComboBox;
    ComboBox1: TComboBox;
 
    procedure BitBtn1Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
 
 
 
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form8: TForm8;
 
implementation
 
uses Unit1, Unit2, Unit3, Unit4, Unit5, Unit6, Unit7, Unit10, Unit9,
  Unit11;
 
{$R *.dfm}
 
function GetIDMaster(master: string): Integer;   //Функция для получения ID нужного мастера
var
  Q: TADOQuery;
begin
  Q := TADOQuery.Create(Form8);
  Q.Connection := DataModule3.ADOConnection1;
  Q.Close;
  Q.SQL.Clear;
  Q.SQL.Text := 'SELECT Master.Tabel_nomer FROM Master WHERE FIO_master =:s';
  Q.Parameters.ParamByName('s').Value := master;
  Q.Open;
 
  if Q['Tabel_nomer'] <> null then
    Result := Q['Tabel_nomer']
  else
    Result := -1;
 
  Q.Free;
end;
 
procedure TForm8.FormActivate(Sender: TObject);
var
  Q: TADOQuery;  //Динамически создаем ADOQuery
begin
  {Такой же код надо написать для каждого ComboBox}
  ComboBox1.Clear;
 
  Q := TADOQuery.Create(Self);
  Q.Connection := DataModule3.ADOConnection1;
  Q.Close;
  Q.SQL.Clear;
  Q.SQL.Text := 'SELECT Master.FIO_master FROM Master';
  Q.Open;
  Q.First;
  while not Q.Eof do
    begin
      ComboBox1.Items.Add(Q['FIO_master']);
      Q.Next;
    end;
  Q.Free; // Удаляем ADOQuery
end;
 
procedure TForm8.BitBtn1Click(Sender: TObject);
var
  Q: TADOQuery;
begin
 
  Q := TADOQuery.Create(Self);
  Q.Connection := DataModule3.ADOConnection1;
  Q.Close;
  Q.SQL.Clear;
  Q.SQL.Text := 'SELECT Zakaz.* FROM Zakaz';
  Q.Open;
 
  Q.Insert;
  {Если ключевое поле не AUTO_INCREMENT, то добавить ещё для вставки ключа}
  Q['Tabel_nomer'] := GetIDMaster(ComboBox1.items[ComboBox1.ItemIndex]);
  Q['Nomer_modeli'] := {Где необходимо написать функции по примеру};
  Q['ID_zakazchika'] := ;
  Q['Data_zakaza'] := ;
  Q['Data_ispolnenya'] := ;
  Q['Cena'] := ;
  Q['Kolvo'] := ;
  Q['Summa'] := ;
 
  Q.Post;
 
  Q.Free;
end;
 
end.

 Q['Nomer_zakaza'] := ;

Q.Insert;
 Q['Tabel_nomer'] := GetIDMaster(ComboBox1.items[ComboBox1.ItemIndex]);
 
  Q.Post;