un SQL con LIKE no me sale

[[oscarac]]

Yo hago algo como esto

Código Delphi [-]
      dmGlobal.qryBuscarAnexo.SQL.Clear;
      SqlStr := 'Select * From tblAnexo where Empresa = ' + QuotedStr(dmGlobal.g_CodigoEmpresa);
      if _tipo = 0 then
        SqlStr := SqlStr + ' and Codigo Like ' + QuotedStr(_Anexo + '%')

      SqlStr := SqlStr + ' Order By Codigo';

      dmGlobal.qryBuscarAnexo.SQL.Add(SqlStr);
      dmGlobal.qryBuscarAnexo.Open;

y si me funciona