Создание компонента MStringGrid

[>>arty<<]

Задание было такое (Почти всё сделал!):
Создайте компонент MStringGrid, предназначенный для ввода матриц. У этого компонента не должно быть заголовочных строк и столбцов, полос прокрутки. Все ячейки должны быть квадратными. Размер по умолчанию 3х3.

Всё сделал за исключением полос прокрутки, прежде чем спрашивать посмотрите исходник, не получается присвоить свойству ScrollBars значение ssNone, ругается но непонятно на что? Помогите кто чем может, и подскажите как обойти данную проблему.

Исходник: MStringGrid.zip

type
  TMStringGrid = class(TStringGrid)
  private
   FMGrid: boolean;
    { Private declarations }
  protected
  procedure SetMGrid(value: boolean);
 
    { Protected declarations }
  public
  constructor create (AOwner: TComponent);override;
    { Public declarations }
  published
  property MGrid: boolean read FMGrid write SetMGrid default false;
 
    { Published declarations }
  end;
 
procedure Register;
 
implementation
 
uses MaskUtils;
 
procedure Register;
begin
  RegisterComponents('Samples', [TMStringGrid]);
end;
 
constructor TMStringGrid.create(AOwner: TComponent);
begin
inherited create(AOwner);
FMGrid:=false;
if FMGrid=true then
 
  Begin
  Width:=105;
  Height:=85;
  FixedCols:=0;
  FixedRows:=0;
  RowCount:=3;
  ColCount:=3;
  DefaultColWidth:=32;
  DefaultRowHeight:=24;
  Scrollbars:=ssNone;
  end;
end;
 
procedure TMStringGrid.SetMGrid(value: boolean);
begin
FMGrid:=value;
if FMGrid=true then
 
  Begin
  Width:=105;
  Height:=85;
  FixedCols:=0;
  FixedRows:=0;
  RowCount:=3;
  ColCount:=3;
  DefaultColWidth:=32;
  DefaultRowHeight:=24;
  Scrollbars:=ssNone;
  end;
 
 
end;
 
end.

[Serge_Bliznykov]

достаточно дописать в uses :

uses
  SysUtils, Classes, Controls, Grids, StdCtrls;