[Alegun]

Со ScrollBar тоже не особо сложно, их только на форму кинуть не забыть

Код:

procedure TForm1.ScrollBar1Change(Sender: TObject);
begin
 StringGrid1.ColCount:= ScrollBar1.Position;
end;
procedure TForm1.ScrollBar2Change(Sender: TObject);
begin
 StringGrid1.RowCount:= ScrollBar2.Position;
end;

З.Ы. (забыл добавить) А очистка так

Код:

procedure TForm1.Button2Click(Sender: TObject);
Var 
Row, Col: integer;
begin
 for Row := StringGrid1.FixedRows to StringGrid1.RowCount - 1 do 
   for Col := StringGrid1.FixedCols to StringGrid1.ColCount - 1  do
       StringGrid1.Cells[Col, Row]:='';
end;