Consulta con delphi

[zvf]

Aparece un error en la sintaxis,

Código Delphi [-]
Query1.Sql.Add('Where Campo Like % '+QuotedStr(Cadena+'%'));

y tambien en :

Código Delphi [-]
Query1.Sql.Add('Where Campo Like '+QuotedStr('%'+Cadena+'%'));

sabe alguien como debe ser?

quiero que la consulta me regrese los registros en donde el campo inicie con la cadena que yo le escribo, y tambien quiero otra consulta que me regrese los registros en donde la cadena que yo escriba se encuentre al principio, en medio o al final del campo.

GRACIAS POR SU ATENCION Y AYUDA