[DOR]

Код:

procedure TForm_Otchet.BitBtn1Click(Sender: TObject);
begin
  DataModule2.ADOQuery1.Active:=false;
  DataModule2.ADOQuery1.SQL.Clear;
  DataModule2.ADOQuery1.SQL.Add('select*');
  DataModule2.ADOQuery1.SQL.Add('from клиенты');
  if form_otchet.ComboBox1.ItemIndex=0 then
    DataModule2.ADOQuery1.SQL.Add('where ФИО '''+Edit1.Text+'''');
  if form_otchet.ComboBox1.ItemIndex=1 then
    DataModule2.ADOQuery1.SQL.Add('where Адрес '''+Edit1.Text+'''');
  DataModule2.ADOQuery1.Active:=true;

  Form_Rezult_Otchet.ShowModal;
end;

Админ: Пользуемся тегами, иначе последуют санкции!

Пжл поправте код, чтобы выполнялось исловие if.