Advstringgrid - Zeilen ausblenden

[capo]

Hallo
ich erzeuge hiermit in einem Advstringgrid in dergesamten ersten Spalte eine Checkbox:

Delphi-Quellcode:

  for i := 1 to advstringgrid1.RowCount - 1 do
    advstringgrid1.AddCheckBox(0, i, false, false);

Nun möchte ich die Zeilen mit gecheckten Boxen ausblenden, das mache ich so:

Delphi-Quellcode:

procedure TForm1.Button11Click(Sender: TObject);
var
  i, x2: integer;
  state: boolean;
begin
  for i := 1 to AdvStringGrid1.RowCount - 1 do
  begin
    if Advstringgrid1.GetCheckBoxState(0, i, state) then
    begin
      if state then
      begin
        AdvStringGrid1.SetCheckBoxState(0, i, false);
        for x2 := 0 to AdvStringgrid1.ColCount - 1 do
          AdvStringGrid1.HideRow(i);
      end;
    end;
  end;
end;

Mein Problem ist, dass damit immer die letzte Zeile nicht ausgeblendet werden kann, manchmal auch andere Zeilen.
Seht ihr meinen Fehler?

Wenn ich immer die letzte Zeile lösche dann klappts.

gruss vom capo