[vtdeleon]

Saludo.

Jeje sabia que me ivan a decir eso

Esta formulario (frmbuscar) que contiene el query1, dbgrid... es creada (en forma modal) por otros formularios (dependiendo del caso). Cada uno de esos formulario requiere diferentes campo. Decidi hacerlo asi para no crear muchos formularios para un mismo proposito.

Ej: Tengo 4 formularios. Son frmempleado, frmdepartamentos, frmocupacion y frmbuscar.
A Excepcion del ultimo, cada uno de estos formulario tiene un boton el cual llama a frmbuscar (que es de consulta):

Código Delphi [-]
 Procedure Tfrmempleado.btBuscarClick....;{El formulario puede ser tambien Frmdepartamento o frmocupacion}
  begin
    frmbuscar:=Tfrmbuscar.create(self);
    frmbuscar.Campos:='codemp as Codigo, nom as nombre, apell As apellido';
    frmbuscar.tabla:='empleados'
    .....
    if frmbuscar.ShowModal= mrok then
      ...
      ...
  
    FreeAndNil(frmbuscar);
  end;

Y asi con los demas, solo cambiandole el campo y la tabla.
En frmbuscar:

Código Delphi [-]
procedure tfrmbuscar.FormActivate...;//o en FormShow
    begin
      query1.close
      with query1.sql do begin
        add('Select '+ Campos);
        add('from '+ tabla);
        ...
      end;
      query1.prepare;
      query1.open;
    end;

Al crear la consulta de forma que cada formulario pide campos diferentes, no puedo hacer lo que me indica Roman.

Gracias por el interes
No es el hilo indicado pero:
Por Otra parte Felicidades Roman, veo que hoy es tu cumplea~o. Muchas felicidades!!!