1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

var
  MainForm: TMainForm;
  Docname: array[1..MaxID] of TMemo;
  DocId: Integer;

implementation

{$R *.dfm}

function NewDokument(title: String; Id: Integer): Boolean;
begin
 if id < MaxID then
  begin
   DocName[Id].Create(MainForm);
   MainForm.DocList.Items.Add(title)
  end;
end;					

1:

DocName[Id].Create(MainForm);					

1:
2:

DocName[id]:=TMemo.create(MainForm);
DocName[id].parent:=MainForm;