Видимость переменных

unit Unit1;
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, ExtCtrls, StdCtrls,
  Menus, ComCtrls, Math, Types;
 
type
 
  { TForm1 }
 
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    PaintBox1: TPaintBox;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
 
 
 
 
  public
     type
    TPointArray = array[0..4] of TPoint;
  TVertexState = (vsYellow, vsRed, vsGreen);
 
  TVertex = record
    State: TVertexState;
    Vector: TPoint; // Вектор потока
  end;
 
  TCell = record
    Vertices: array[0..4] of TVertex;
  end;
 
  TGrid = array of array of TCell;
  const
  CellSize = 50; // Размер ячейки в пикселях
  VertexCount = 5;
  end;
 
var
  Form1: TForm1;
        Grid: TGrid;
  GridWidth, GridHeight: Integer;
implementation
 
 
{$R *.lfm}
procedure InitializeGrid(AWidth, AHeight: Integer);
var
  i, j: Integer;
begin
  GridWidth := 10; // AWidth
  GridHeight := 10; // AHeight
  SetLength(Grid, GridHeight, GridWidth);
 
  for j := 0 to GridHeight - 1 do
    for i := 0 to GridWidth - 1 do
    begin
      with Grid[j][i] do
      begin
        Vertices[0].State := vsYellow; // Вершины квадрата
        Vertices[1].State := vsYellow;
        Vertices[2].State := vsYellow;
        Vertices[3].State := vsYellow;
 
        Vertices[4].State := vsRed;   // Центральная вершина
 
        Vertices[0].Vector := Point(0, 0); // Нулевые векторы для всех вершин
        Vertices[1].Vector := Point(0, 0);
        Vertices[2].Vector := Point(0, 0);
        Vertices[3].Vector := Point(0, 0);
 
        Vertices[4].Vector := Point(0, 0); // Центральная вершина не имеет вектора потока
      end;
    end;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  InitializeGrid(PaintBox1.Width div CellSize, PaintBox1.Height div CellSize);
  PaintBox1.Invalidate; // Перерисовка сетки при создании формы
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
 
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
 
end;
 
procedure TForm1.Button3Click(Sender: TObject);
begin
 
end;
 
end.