Muchas gracias roman, ya funciona. Ha quedado así:
Código Delphi
[-]
if (F_Main.sCheckB_MayMinBuscarTit.Checked) then begin
cCadena := cCadena + '%';
DM_TitAnd_PUIP.Q_TITULOS.SQL.Add('Where (NomTit like :cCadena)');
DM_TitAnd_PUIP.Q_TITULOS.Parambyname('cCadena').AsString := cCadena;
end
else
DM_TitAnd_PUIP.Q_TITULOS.SQL.Add('where UPPER(NomTit) like ''' + AnsiUpperCase(cCadena) + '%''');
Qué claro cuando se sabe!
Un saludo.