Fórum Pesquisa não funciona #426802

procedure TFrm_PesqOrca.BTPesquisaClick(Sender: TObject);
Var
Valor:string;
begin
IF EdtPesquisa.Text='' THEN
Begin
ShowMessage('Entre com pesquisa');
EDtPesquisa.SetFocus;
end;
IF RbCodigo.Checked Then
Valor:='COD_cli'
else
IF RbNome.Checked THEN
Valor:='Nome_cli';
With Dmdados.IBQ_Orcamento DO
Begin
Close;
Dmdados.IBQ_Orcamento.SQL.Clear;
Dmdados.IBQ_Orcamento.SQL.Text:='Select * From Tab_Orcamento Where '+ Valor +' LIKE :Paramcod';
Parambyname('Paramcod').AsString:='%'+EdtPesquisa.Text+'%';
Dmdados.IBQ_Orcamento.SQL.Add('Order By Nome_cli');
Open;
End;

IF Dmdados.IBQ_Orcamento.Eof THEN
Begin
ShowMessage('Nenhum orçamento encontrado');
EdtPesquisa.SetFocus;
end;

end;