[ecfisa]

Hola mdcynsk.

Una forma de hacerlo sería usando un TEdit, un TQuery y un TDBGrid.
Para ejemplificarte uso la tabla Customer de DBDemos que viene con Delphi.

Ya sea en el evento OnExit del Edit o en OnClick de algún botón poné el
siguiente código:

procedure TForm1.HacerConsulta(ATable, AField, Buscado: string);
begin
  Query1.SQL.Text:= 'SELECT * FROM ' + Atable +
                ' WHERE ' + AField + ' = ' + QuotedStr(Buscado);
  Query1.Open;
end;

Ejemplo de llamada:

procedure TForm1.Button1Click(Sender: TObject);
begin
  HacerConsulta('CUSTOMER','STATE',Edit1.Text);
end;

Saludos.