2 DBGrid и БД

procedure TForm1.Button1Click(Sender: TObject);
begin
  with ZConnection1 do
    begin
      Connected:= False;
      Protocol:= 'sqlite-3';
      Database:= 'db.db3';
      Connected:= True;
    end;
  DataSource1.DataSet:= ZQuery1;
  DataSource2.DataSet:= ZQuery2;
  with DBGrid1 do
    begin
      DataSource:= DataSource1;
      AutoFillColumns:= True;
    end;
  with DBGrid2 do
    begin
      DataSource:= DataSource2;
      AutoFillColumns:= True;
    end;
  with ZQuery1 do
    begin
      Close;
      Connection:= ZConnection1;
      SQL.Clear;
      SQL.Add('SELECT DISTINCT gruppa_tovarov FROM table1');
      Open;
    end;
  with ZQuery2 do
    begin
      Close;
      Connection:= ZConnection1;
      LinkedFields:= 'gruppa_tovarov';
      MasterFields:= 'gruppa_tovarov';
      MasterSource:= DataSource1;
      SQL.Clear;
      SQL.Add('SELECT * FROM table1');
      Open;
    end;
end;