Seleccionar registros que comiencen por un valor string

[Pedro-Juan]

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.