[Andrew_MSK]

также пытался сделать так:

Код:

procedure TForm2.rg1Click(Sender: TObject);
begin
  if rg1.ItemIndex=0 then  i:= 'NOMER' ;
  if rg1.ItemIndex=1 then  i:= 'FAM'  ;
  if rg1.ItemIndex=2 then  i:= 'PULT' ;
  if rg1.ItemIndex=3 then  i:= 'UL'    ;
  if rg1.ItemIndex=4 then  i:= 'TELDOM';
  if rg1.ItemIndex=5 then  i:= 'TELSOT';
end;

procedure TForm2.btn2Click(Sender: TObject);

begin
  DataModule1.ZQuery1.Close;
  DataModule1.ZQuery1.SQL.Clear;
  DataModule1.ZQuery1.SQL.Add('Select * from tbl where  i like "Иванов" ');
DataModule1.ZQuery1.Open;
end;

тоже не работает