GUI через c++ builder для простого консольного приложения

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, StdCtrls, Spin, Math;
 
type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    SpinEdit1: TSpinEdit;
    SpinEdit2: TSpinEdit;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    StringGrid1: TStringGrid;
    Button4: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  A : array of array of integer;
  N, M : integer;
 
implementation
 
{$R *.dfm}
 
//Создание формы
procedure TForm1.FormCreate(Sender: TObject);
var i : integer;
begin
//Инициализация генератора случайных чисел
 Randomize;
//Установка ширины столбцов стринггрида
 for i := 0 to 9 do
  StringGrid1.ColWidths[i] := StringGrid1.RowHeights[i] * 2;
//Скрытие стринггрида
 StringGrid1.Visible := false;
end;
 
//Нажатие кнопки Выход
procedure TForm1.Button3Click(Sender: TObject);
begin
 Close;
end;
 
//нажатие кнопки "Создать"
procedure TForm1.Button1Click(Sender: TObject);
var i, j : integer;
begin
//Задание количества строк и столбцов матрицы и сетки
//в зависимости от введенных пользователем значений
 N := SpinEdit1.Value;
 M := SpinEdit2.Value;
 StringGrid1.RowCount := N;
 StringGrid1.ColCount := M;
//Отображение сетки
 StringGrid1.Visible := true;
//установка размерности динамического массива
 SetLength(A, N, M);
//Заполнение массива и сетки случайными числами от -100 до 100
 for i := 0 to N - 1 do
  for j := 0 to M - 1 do
   begin
    A[i, j] := RandomRange(-100, 100);
    StringGrid1.Cells[j, i] := IntToStr(A[i, j]);
   end;
//Доступна кнопка "Изменить"
 Button2.Enabled := true;
end;
 
//Нажатие кнопки "Изменить"
procedure TForm1.Button2Click(Sender: TObject);
var i, j : integer;
begin
//Если элемент массива > 0, он умножается на 2, иначе обнуляется
//и отображается в сетке
 for i := 0 to N - 1 do
  for j := 0 to M - 1 do
   begin
    if A[i, j] > 0 then A[i, j] := A[i, j] * 2 else A[i, j] := 0;
    StringGrid1.Cells[j, i] := IntToStr(A[i, j]);
   end;
//Недоступны кнопки "Создать" и "Изменить"
 Button1.Enabled := false;
 Button2.Enabled := false;
//Доступна кнопка "Заново"
 Button4.Enabled := true;
end;
 
//Нажатие кнопки "Заново"
procedure TForm1.Button4Click(Sender: TObject);
var i : integer;
begin
//Очищаем и скрываем сетку
 for i := 0 to N - 1 do
  StringGrid1.Rows[i].Clear;
 StringGrid1.Visible := false;
//Доступна кнопка "Создать"
 Button1.Enabled := true;
//Недоступны кнопки "Заново" и "Изменить"
 Button4.Enabled := false;
//Значения количества строк и столбцов установлены по умолчанию
 SpinEdit1.Value := 5;
 SpinEdit2.Value := 5;
end;
 
end.