procedure TForm1.BitBtn2Click(Sender: TObject);
var
  I : Integer;
begin
  for i := 0 to StringGrid1.RowCount - 1 do
    StringGrid1.Rows[I].Clear;
end;    procedure TForm1.BitBtn3Click(Sender: TObject);
var
  I : Integer;
begin
  for i := 0 to StringGrid1.ColCount - 1 do
    StringGrid1.Cols[I].Clear;
end;    procedure TForm1.BitBtn4Click(Sender: TObject);
var
  I,J : Integer;
begin
  for I := 0 do StringGrid1.ColCount - 1 do
    begin
      for J := 0 to StringGrid1.ROWCount - 1 do
        begin
          StringGrid1.Cells[I,J] := '';
        end;
    end;
end;