Пользовательский класс Delphi 7

[qpMAXqp]

Здравствуйте. Хочу выполнить задачу:
Разработать пользовательский класс, методы которого осуществляют поиск минимального элемента побочной диагонали инициализации матрицы и вывод
значения на экран.
Вот есть код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids;

type
  TForm1 = class(TForm)
    btn1: TButton;
    txt1: TStaticText;
    strngrd1: TStringGrid;
    procedure FormCreate(Sender: TObject);
    procedure btn1Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

type

  Tmyclas = class (TForm1)


    constructor Create (Size : Integer);
    function PrintMatrix: string;
    function GetMin: integer;
      private
        
    a: array of array of Integer;
    fSize: integer;
        public
end;

implementation


constructor Tmyclas.Create(Size: Integer);
var
_size: Integer;
i,j: Integer;
begin
  if Size <=0 then
   _size:= 1
   else
   _size:= Size;
   fSize:= _size;
  Randomize;
SetLenght(a,_size);
  for I:= 0 to _size-1 do
   begin
     SetLenght(a[i], _size);
     for j:= 0 to _size-1 do
     a[i,j]:= Random(100);
   end;
end;




 function Tmyclas.PrintMatrix : string;
var
  s : string;
  i,j: integer;
  begin
  s:= ";
  for i:= 0 to fSize-1 do
  begin
    for j:= 0 to fSize-1 do
    s:= s + inttostr(a[i,j]) + '';
    s:= s + #13 + #10;
    end;
    result:= s;
  end;

  function Tmyclas.GetMin : Integer;
  var
    min : Integer;
    i, j: Integer;
    begin
      min:= A[0, fSize-1];
      for i:= 0 to fSize-1 do
        if (A[i, fSize -1 -i ]) < min then min:= a[i, fSize-1];
        Result:= min;
    end;
  end.

Есть и ошибка : undeclared identifier SetLength
Хочется и вывести, и довести до ума.

[Аватар]

1. SetLenght <> SetLength
2. Tmyclas = class (TForm1) ??? Че за наворот
3. constructor Tmyclas.Create(Size: Integer); где Inherited для выполнения родительского конструктора?

[qpMAXqp]

Вот исправленный вариант. Как вывести на экран?

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    lbl1: TLabel;
    btn1: TButton;
    procedure btn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

type
  Tmyclas = class

  private
    a: array of array of Integer;
    fSize: Integer;
  public
    constructor Create (Size : integer);
    function PrintMatrix: string;
    function GetMin: integer;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

constructor Tmyclas.Create(Size: Integer);
var
_size : Integer;
i, j : integer;
begin
  if Size <= 0 then
    _size := 1
  else
    _size := Size;
    fSize := _size;
    Randomize;
    SetLength(A, _size);
for i := 0 to _size-1 do
  begin
    SetLength(A[i], _size);
    for j := 0 to _size-1 do
    A[i, j] := Random(100);
  end;
end;

function Tmyclas.PrintMatrix : string;
var
s : string;
i, j : integer;
begin
s := '';
    for i := 0 to fSize-1 do
  begin
    for j := 0 to fSize-1 do
    s := s + IntToStr(A[i,j]) + ' ';
    s := s + #13+#10;
  end;
    Result := s;
    ShowMessage(s);
end;

function Tmyclas.GetMin : integer;
var
min : Integer;
i, j : integer;
begin
min := A[0, fSize-1];
    for i := 0 to fSize-1 do
  if (A[i, fSize - 1 - i]) < min then
    min := A[i, fSize-1];
    Result := min;
end;


end.

[qpMAXqp]

2. Tmyclas = class (TForm1) ??? Че за наворот
наследование с тформа

[Аватар]

в TForm1 нельзя что ли нужные методы и свойства добавить?
И по п.3 ни каких телодвижений не заметно

[qpMAXqp]

Сообщение от Аватар

в TForm1 нельзя что ли нужные методы и свойства добавить?
И по п.3 ни каких телодвижений не заметно

вывел.
п.3. не особо понятен.
Код мне помогали писать, свободно им ещё не владею.
Вообщем. Решил. Благодарю тебя за помощь и отзывчивость