[Hastle31]

Код:

  form1.ADOQuery1.SQL.Clear;
  form1.ADOQuery1.active:=false;
  form1.ADOQuery1.SQL.text:='SELECT имя, фамилия, телефон, [Тип адреса], adress FROM Люди, Точка, точка_люди   WHERE Люди.id=точка_люди.id_чел AND Точка.id=точка_люди.id_точки AND точка_люди.id_точки=' + (form2.DBComboBox2.Text);
  form1.ADOQuery1.ExecSQL();
  form1.ADOQuery1.active:=true;