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;