Como eliminar una o varias filas de un TAdvStringGrid

[p1p3]

Saludos a todos los participantes del foro.

Por favor me pueden ayudar informándome como eliminar una o varias filas en un AdvStrigGrid, he encontrado respuestas en este foro y he tratado de implementarlo en mi código sin resultado alguno.

bueno, lo que hago es generar una o varias filas con sus respectivos checks.

Código Delphi [-]
GridProcedimientos.AddRow;
 for  i := 1 to GridProcedimientos.RowCount -1 do
    begin
      GridProcedimientos.AddCheckBox(0,i,False, True);
      GridProcedimientos.ReadOnly[1,i]:=True;
      GridProcedimientos.ReadOnly[5,i]:=True;
    end;

Hasta aquí todo bien...Cuando selecciono varios check y los quiero eliminar me elimina un solo o todos los registros, el código esta así:

Código Delphi [-]
for i:=1 to GridProcedimientos.RowCount do
 begin
    if GridProcedimientos.GetCheckBoxState(0,i,state)then
    begin
       if state then
           GridProcedimientos.RemoveSelectedRows;//esta linea solo elimina uno por uno
   end;
 end;

Tambien lo he hecho con esta linea

Código Delphi [-]
GridProcedimientos.RemoveRows(GridProcedimientos.Row, GridProcedimientos.RowCount);//esta elimina todas las filas

Agradezco el tiempo que le dedican a mi pregunta.