[Nati1]

O

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

O

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:= Edit1.Text;       
Open;     
end;