Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

 // Many times faster! 
// Um einiges schneller! 
procedure TForm1.Button2Click(Sender: TObject);
 var
   I: Integer;
 begin
   for I := 0 to StringGrid1.RowCount - 1 do
     StringGrid1.Rows[I].Clear();
 end;