Stringgrid schnell löschen

void ClearStringGrid(TStringGrid * SGrid)
{
     // Neuzeichnen des Grids verhindern -> schneller löschen
     SendMessage(SGrid->Handle, WM_SETREDRAW, false, 0);

     // spaltenweises Löschen
     for (int i = 0; i < SGrid->ColCount; i++) SGrid->Cols[i]->Clear();

     SGrid->RowCount = 2;

     // Neuzeichnen des Grids wieder ermöglichen
     SendMessage(SGrid->Handle, WM_SETREDRAW, true, 0);
     SGrid->Invalidate();
}