Bei leerem StringGrid Btn. Löschen deaktivieren

[LOMBI]

Guten Abend,

beim ersten Ausführen meines Programmes und einem leeren StringGrid
ohne Daten bleibt der Btn. "Löschen" nicht deaktiviert.

Delphi-Quellcode:

procedure DeleteRow(sg: TStringGrid; index: Integer);
var
  iRow: Integer;
begin
  with TGridCracker (sg) do
    begin
      if index < 0 then index:= Row;
        if Row = - 1 then                  //(für index: Integer = -1)
          sg.Rows[index].Clear;
          DeleteRow(index);
        if iRow < RowCount
          then Row := iRow
          else Row := Pred(RowCount);
end;

procedure TFormKundenListe.BtnLoeschenClick(Sender: TObject);
begin
  with GridKunden do
    if LineCount = 1
      then Rows[Row].Clear;
      else DeleteRow(GridKunden, Row);
   LineCount := LineCount - 1;
   BtnLoeschen.Enabled := LineCount > 0;
end;

Woran mag das liegen? Wer hilft mir bitte weiter?

Grüße
Lombi