Работа с объектами

[dr.Chas]

Пишу, то я пишу, всё работает. А вот есть ли какие недочёты, ошибки и т.д. Вот что меня интересует. Буду рад вприципе любой критике только аргументированной канешно. Т.е. если не так, то как и почему. Это я так набросал набросок (так для примера):

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    PageControl1: TPageControl;
    Panel1: TPanel;
    Button1: TButton;
    Label1: TLabel;
    Button2: TButton;
    Label2: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
    procedure AddTab;
  public
    { Public declarations }
  end;

//объединяю два компонента и работаю как с одним объектом.
type TobjTab = class
  tab: TTabSheet;
  Memo: Tmemo;
  index: smallint;
  caption: string[20];
end;

var
  Form1: TForm1;
  objTab: TObjTab;
  list: TList;   //запоминать список созданных объектов

implementation

{$R *.dfm}

//создаём вкладку, и мемо на ней. Создаём объект.
procedure TForm1.addTab;
var tab: TTabSheet;
    memo: TMemo;
begin
  tab:=TTabSheet.Create(self);
  tab.PageControl:=PageControl1;
  tab.Caption:='Новая вкладка '+IntToStr(PageControl1.PageCount);
  tab.PageControl.ActivePage:=tab;

  //////////////////////////
  memo:=TMemo.Create(self);
  memo.Parent:=Tab;
  memo.Align:=alClient;
  memo.SetFocus;

  //создаём объект
  objTab:=TObjTab.create;
  objTab.tab:=tab;
  objTab.Memo:=memo;
  objTab.caption:=tab.Caption;

  list.Add(objTab);
end;

//удаляем общий объект для вкладки и мемо, и закрываем вкладку
procedure ObjTabDelete(index: smallint);
begin
  objTab:=list.Items[index];

  objTab.destroy;
  list.Delete(index);
  form1.PageControl1.ActivePage.Destroy;
end;

///добавляем вкладку
procedure TForm1.Button1Click(Sender: TObject);
begin
  addTab;
end;

procedure TForm1.FormDestroy(Sender: TObject);
//var i: smallint;
begin
//удаляем все объекты
  while list.count<>0 do
  begin
    objTabDelete(list.count-1);
  end;

  list.Free;
end;

//закрыть вклакду и уничтожить объект
procedure TForm1.Button2Click(Sender: TObject);
begin
  objTabDelete(PageControl1.ActivePageIndex);
end;

//создаём лист объектов, и добавляем вкладку
procedure TForm1.FormShow(Sender: TObject);
begin
  list:=Tlist.Create;
  addTab;
end;

end.

Файл с программой прилагается ниже, если кому надо.

[Altera]

Да нормально всё в общем то. Это ты сам смотреть должен.