[ing.cagn]

Señores, muchas gracias por sus respuestas, ya pude darle solución al problema lo hice de esta manera..

Código Delphi [-]
procedure TForm1.printreport1Click(Sender: TObject);
begin
  with CONSULTABAUTISMO do
  begin
    Close;
    SQL.Clear;
    CONSULTABAUTISMO.SQL.Text:='select *from db.bautismos Where DCI='+buscar.Text;
    PRINTREPORTBAUTISMOS.Execute;
  end;
end;

end.

//Makio muchas gRacias...

Adios!!!