Дартс на StringGrid

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, StdCtrls, Menus, ExtCtrls, ComCtrls;
 
type
  TForm1 = class(TForm)
    sg: TStringGrid;
    Edit1: TEdit;
    Edit2: TEdit;
    Label2: TLabel;
    Button1: TButton;
    Button2: TButton;
    Label1: TLabel;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    SB1: TScrollBar;
    SB2: TScrollBar;
    Timer1: TTimer;
    Timer2: TTimer;
    Label3: TLabel;
    Button3: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure Timer2Timer(Sender: TObject);
    procedure FormMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
var
n,m,k,max,min:integer;
sg_max,
sg_min:integer;
 
procedure TForm1.Button1Click(Sender: TObject);
Var i,j:Byte;
begin
begin
 N:=StrToInt(Edit1.Text);
 M:=StrToInt(Edit2.Text);
 
 sg.DefaultColWidth:=24;
 sg.RowCount:=N+1;
 sg.ColCount:=M+1;
 sg.Height:=(sg.DefaultRowHeight+2)*(N+1);
 sg.Width:= (sg.DefaultColWidth +2)*(M+1);
 sg.Visible:=True;
 For I:=1 to N do
  sg.Cells[0,I]:=IntToStr(I);
 For J:=1  to M do
  sg.Cells[J,0]:=IntToStr(j);
  begin
    sb1.Width:=(sg.Width-30);
    sb2.Height:=(sg.Height);
  end;
    end;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
Var i,J,a:Byte;
begin
randomize;
For I:=1 to n do
 For J:=1 to m do
sg.Cells[i,j]:=IntToStr(random(2))
end;
 
procedure TForm1.Button3Click(Sender: TObject);
begin
end;
 
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
if Timer1.Enabled=true then
 begin
 Timer1.Enabled:=false;
 Timer2.Enabled:=true;
end
 else
 Timer2.Enabled:=false;
end;
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
max:=100;
sb1.Position:=sb1.Position+2;
if sb1.Position=max then
sb1.Position:=0;
Label3.Caption:=IntToStr(sb1.Position);
end;
 
procedure TForm1.Timer2Timer(Sender: TObject);
 
begin
max:=100;
sb2.Position:=sb2.Position+2;
if sb2.Position=max then
sb2.Position:=0;
end;
end.