[vtdeleon]

Saludos

Pare hacer eso debes modificar la sentencia sql e indicarle por cual campo buscar.

Código Delphi [-]
procedure TForm3.BitBtn1Click(Sender: TObject);
var
  campo:String
begin
  Campo:='Carta_orde';//O cualquier otro campo
// Muestra el diálogo de consultas
dlgBuscar.ShowModal;
if dlgBuscar.ModalResult = mrOK then begin
qryConsulta.Close;
qryConsulta.Sql.Text:='Select * from tabla where '+campo+'=:busqueda';
qryConsulta.ParamByName('busqueda').AsString :=
dlgBuscar.BuscarEdt.Text+'%';
qryConsulta.Open;

Donde campo es una variable string que indica el campo que deseas buscar