Foros Club Delphi - registros que comienzan por...

Buen día tengan todos los compañeros del foro..

Mi pregunta es la siguiente:

Tengo registros que en el campo consecutivo comienzan mas o menos asi:

p1-c1a
p1-c2a
p1-c3b
p2-c4b
p5-c3a
p8-c3a

etcetera....

Yo solo quiero que me muetre los que comienzan con P1 y P2 al darle clic a un boton

tengo el siguiente codigo:

Código:

 DataModule1.FIBDS_ConIndProc.Close;

         DataModule1.FIBDS_ConIndProc.SelectSQL.Clear;

         DataModule1.FIBDS_ConIndProc.SelectSQL.Add('select *');

         DataModule1.FIBDS_ConIndProc.SelectSQL.Add('from procesos');

         DataModule1.FIBDS_ConIndProc.SelectSQL.Add('Where upper(Consecutivo) like:Cons and (anno=:year) and (meta_ene>0) and (cump_ene<=95)');

         DataModule1.FIBDS_ConIndProc.ParamByName('Cons').asstring:='P1'+'%';

         DataModule1.FIBDS_ConIndProc.ParamByName('year').asinteger:=DataModule1.FIBDS_AnnosANNO.Value;

         DataModule1.FIBDS_ConIndProc.Open;

         Frm_Rojos.Show;

yo solo quiero los que comiencen con P1 o P2, no los demas..

Bueno ojala y puedan ayudarme se lo agradezco mucho..

Saludos a todos:)