Pesquisa com seleção de campos

procedure TFrm_principal.BtLocalizarClick(Sender: TObject);
Var
 Campo: String;
begin
 IF EdtPesquisa.Text=´´ THEN
      Begin
       Showmessage(´Entre com um valor a ser pesquisado´);
       EdtPesquisa.SetFocus;
      end;
  IF RadioButonNome.Checked Then
     Campo:=´Nome´
  ELSE
  IF RadioButtonIpLan.Checked THEN
     Campo:=´IpLan´
  ELSE
  IF RadioButtonIpWan.Checked THEN
     Campo:=´IpWan´
  ELSE
  IF RadioButtonMac.Checked THEN
     Campo:=´Mac_Adres´;
 With DmDados.IBQ_Ip DO
      Begin
       Close;
       Sql.Clear;
       Sql.Text´Select * From Tab_IP Where ´+ Nome +´ Like :dado´;          ParamByName(´Dado´).AsString:= ´¬´ + Edit1.Text + ´¬´;
       Open;
      end;
 end;