Consulta Like '%'+ :parametro + '%'

[[egostar]]

Hola

Tal vez así:

Código Delphi [-]
Query1.Close;
Query1.Sql.Clear;// Hay que tener cuidado con esto que haces, si limpias el query, no veo que lo estes escribiendo de nuevo, yo lo omitiria
Query1.ParamsbyName['pCodigo'].AsString:='%'+'123'+'%';
Query1.Open;

Código SQL [-]
Select * from Linea
Where Codigo like :Codigo

Salud OS

PD, usa las etiquetas para que el código se vea mejor.