Problemas con el TADOQuery

[Nati1]

Correcto, es mi culpa por copiar y pegar sin ver:

Código Delphi [-]
With Modulo_Busqueda.Consulta_Busqueda do     
begin       
Close;        
SQL.Clear;        
SQL.Text:='SELECT * FROM Tbl_Trabajador WHERE No_Chapa = :valor'; 
Parameters.ParamByName('valor').Value:= CBox_NoSolapin.text;       
Open;     
end;