CSharp и Игра "Жизнь"

unit lab3;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls;
 
type
  TForm1 = class(TForm)
    Timer: TTimer;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure FormCreate(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure TimerTimer(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  x0, y0, a, b, c : integer;
  mas, masF : array[0..31,0..31] of boolean;
  sw : boolean;
 
implementation
 
{$R *.dfm}
 
procedure Life();
var i, j, k, n : integer;
var count : word;
begin
    //Блок прохода по массиву
    for j := 1 to c do begin
        for i := 1 to b do begin
            //Блок проверки на рядомстоящих
            count := 0;
            for n := j-1 to j+1 do begin
                for k := i-1 to i+1 do begin
                    if (j = n) and (i = k) then continue;
                    if mas[k,n] then count := count + 1;
                end;
            end;
            //Блок исхода
            if (mas[i,j] = false) and (count = 3) then masF[i,j] := true
            else if (mas[i,j] = true) and ((count = 2) or (count = 3)) then masF[i,j] := true
            else masF[i,j] := false;
        end;
    end;
    //Блок подготовки к след. шагу
    for j := 1 to b do begin
        for i := 1 to c do begin
            mas[i,j] := masF[i,j];
        end;
    end;
end;
 
procedure Draw(); //Рисуем сетку и клетки
var i, j, x, y : integer;
begin
  a := 15; b := 30; c := 30;
  // a - длина ребер квадрата
  // b - кол-во квадратов в ширину, c - в высоту
  x0 := 25; y0 := 25;
  // x0 - начальная точка по х, y0  - по y
  x := x0; y := y0;
    for j := 1 to b do
    begin
        x := x0;
        for i := 1 to c do begin
            form1.Canvas.Polygon([Point(x,y),Point(x+a,y),
                Point(x+a,y+a),Point(x,y+a)]);
            if (mas[i,j]) then form1.Canvas.Ellipse(x+1,y+1,x+a,y+a);
            //else if (masF[i,j]) and (sw = false) then form1.Canvas.Ellipse(x+1,y+1,x+a,y+a);
            x := x0 + (i * a);
        end;
        y := y0 + (j * a);
    end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
sw := true;
button1.Enabled := false;
button2.Enabled := true;
timer.Enabled := false;
end;
 
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var xP, yP : integer;
begin
  a := 15;
  if (button = mbLeft) and (sw = true) then begin
 
    xP := (X - 25) div a;
    yP := (Y - 25) div a;
    mas[xP+1,yP+1] := true;
    draw;
  end;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
sw := true;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
sw := false;
button2.Enabled := false;
button1.Enabled := true;
timer.Enabled := true;
end;
 
procedure TForm1.TimerTimer(Sender: TObject);
var i, j : integer;
begin
Life;
Draw;
end;
 
procedure TForm1.Button3Click(Sender: TObject);
begin
draw;
end;
 
end.