Hola
Tal vez así:
Código Delphi
[-]
Query1.Close;
Query1.Sql.Clear;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.