Tadvstringgrid und Zeile löschen

[capo]

Guten Abend,

ich verwende ein TAdvStringgrid und möchte eine Zeile löschen.
MIt den Hauseigenen Demos bin ich nicht weiter gekommen.

Deshalb verwende ich folgendes Script um eine Zeile zu löschen:

Delphi-Quellcode:

procedure TForm1.GridDeleteRow(RowNumber: Integer; Grid: TStringGrid);
var
  i: Integer;
begin
  Grid.Row := RowNumber;
  if (Grid.Row = Grid.RowCount - 1) then
  begin
    {On the last row}
    Grid.RowCount := Grid.RowCount - 1;
  end else
  begin
    {Not the last row}
    for i := RowNumber to Grid.RowCount - 1 do
    begin
      Grid.Rows[i] := Grid.Rows[i + 1];
    end;
    Grid.RowCount := Grid.RowCount - 1;
  end;
end;

Das löschen einer Zeile funktioniert normalerweise auch.
Diesmal ist es so, dass ich einen Floatingfooter verwende und nach dem löschen der Zeile diese danach im Floatingfooter angezeigt wird.

[EDIT] sehe gerade dass das löschen auch nicht richtig klappt

Jemand eine Ahung woran das liegen kann?

Gruss Capo