Сохранение данных из динамически созданного компонента

[Кинельски]

Здравствуйте форумчане , прошу помочь в вопросе сохранения данных из динамически созданного компонента .
Желательно кусочек кода или ссылку на исходник или тему, где это уже обсуждалось.
Вот код программы:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, Menus, StdCtrls, Tabs,MSHTML, ExtCtrls, OleCtrls,
  SHDocVw;

type
  TForm1 = class(TForm)
    PopupMenu1: TPopupMenu;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    deldoc: TMenuItem;
    newdoc: TMenuItem;
    PageControl1: TPageControl;
    procedure FormCreate(Sender: TObject);
    procedure tablchange(Sender: TObject; NewTab: Integer;
  var AllowChange: Boolean);
    procedure newdocClick(Sender: TObject);
    procedure deldocClick(Sender: TObject);
  private
    { Private declarations }
  public
      { Public declarations }

      end;

var
  Form1: TForm1;
  tabs:ttabsheet;
  ntabl,ndoc:integer;
  tabl:TTabSet;
  texts:TMemo;
implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
ndoc:=ndoc+1;
tabs:=ttabsheet.CreateParented(pagecontrol1.Handle);
tabs.PageControl:=pagecontrol1;
tabs.Caption:='Вкладка верхняя '+inttostr(ndoc);
tabl:=ttabset.CreateParented(tabs.Handle);
tabl.Name:='tabl'+inttostr(ndoc);
tabl.Tabs.Text:='Вкладка 1'+#13+'Вкладка 2';
tabl.TabIndex:=0;
texts:=tmemo.Create(tabs);
texts.Parent:=tabs;
texts.Name:='texts'+inttostr(ndoc);
texts.Tag:=ndoc;
texts.Top:=23;
tabl.OnChange:=tablchange;
end;

procedure TForm1.tablchange(Sender: TObject; NewTab: Integer; var AllowChange: Boolean);
var
i:integer;
begin
{Сохранение текста }

end;

 procedure TForm1.newdocClick(Sender: TObject);
begin
ndoc:=ndoc+1;
tabs:=ttabsheet.CreateParented(pagecontrol1.Handle);
tabs.PageControl:=pagecontrol1;
tabs.Caption:='Вкладка верхняя '+inttostr(ndoc);
tabl:=ttabset.CreateParented(tabs.Handle);
tabl.Name:='tabl'+inttostr(ndoc);
tabl.Tabs.Text:='Вкладка 1'+#13+'Вкладка 2';
tabl.TabIndex:=0;
texts:=tmemo.Create(tabs);
texts.Parent:=tabs;
texts.Name:='texts'+inttostr(ndoc);
texts.Tag:=ndoc;
texts.Top:=23;
tabl.OnChange:=tablchange;
end;
procedure TForm1.deldocClick(Sender: TObject);
begin
pagecontrol1.ActivePage.Free;
end;

end.

И исходник

[eduard93]

Думаю поможет: http://www.delphikingdom.com/asp/vie...?catalogid=342