[Informat]

Здраствуйте! помогите добавить в код новую функциональность (на Оле контейнер). Нужно создать 3 контейнер.
На первом контейнере создать блокнот и переместить на вторую и там нужно редактировать блокнота(или написать что-то) и переместить на третий контейнер. Вот код

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142

unit Unit1;    interface    uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, OleCtnrs, ComCtrls, StdCtrls;    type   TForm1 = class(TForm)     Label1: TLabel;     Label2: TLabel;     Label3: TLabel;     Button1: TButton;     Button2: TButton;     Button3: TButton;     Button4: TButton;     Button5: TButton;     Button6: TButton;     CheckBox1: TCheckBox;     CheckBox2: TCheckBox;     ComboBox1: TComboBox;     TrackBar1: TTrackBar;     OleContainer1: TOleContainer;     SaveDialog1: TSaveDialog;     OleContainer2: TOleContainer;     Button7: TButton;     Button8: TButton;     procedure FormCreate(Sender: TObject);     procedure Button1Click(Sender: TObject);     procedure Button2Click(Sender: TObject);     procedure Button3Click(Sender: TObject);     procedure Button4Click(Sender: TObject);     procedure Button5Click(Sender: TObject);     procedure Button6Click(Sender: TObject);     procedure CheckBox1Click(Sender: TObject);     procedure CheckBox2Click(Sender: TObject);     procedure ComboBox1Change(Sender: TObject);     procedure TrackBar1Change(Sender: TObject);     procedure Button7Click(Sender: TObject);     procedure Button8Click(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end;    var   Form1: TForm1;    implementation    {$R *.dfm}    procedure TForm1.FormCreate(Sender: TObject); begin Trackbar1.Position:=olecontainer1.Width;    end;    procedure TForm1.Button1Click(Sender: TObject); begin Form1.OleContainer1.InsertObjectDialog; end;    procedure TForm1.Button2Click(Sender: TObject); begin Form1.OleContainer1.DestroyObject; end;    procedure TForm1.Button3Click(Sender: TObject); begin   Form1.OleContainer1.ChangeIconDialog; end;    procedure TForm1.Button4Click(Sender: TObject); begin   Form1.OleContainer1.Copy; end;    procedure TForm1.Button5Click(Sender: TObject); begin Form1.OleContainer2.Paste;  end;    procedure TForm1.Button6Click(Sender: TObject); begin   if  OleContainer1.State=osLoaded then   begin    Form1.SaveDialog1.Execute;   end;    end;    procedure TForm1.CheckBox1Click(Sender: TObject); begin if CheckBox1.State=cbChecked then     Form1.OleContainer1.Iconic:=true else   Form1.OleContainer1.Iconic:=false;   Form1.Refresh;    end;    procedure TForm1.CheckBox2Click(Sender: TObject); begin  if CheckBox2.State=cbChecked then      Form1.OleContainer1.BorderStyle:=bsSingle  else   Form1.OleContainer1.BorderStyle:=bsNone;   Form1.Refresh;    end;    procedure TForm1.ComboBox1Change(Sender: TObject); begin if  Form1.ComboBox1.Text='crDefault' then      Form1.OleContainer1.Cursor:=crDefault;    if  Form1.ComboBox1.Text='crHandPoint' then    Form1.OleContainer1.Cursor:=crHandPoint; if  Form1.ComboBox1.Text='crMultiDrag' then    Form1.OleContainer1.Cursor:=crMultiDrag;   Form1.Refresh;    end;    procedure TForm1.TrackBar1Change(Sender: TObject); begin Form1.OleContainer1.Width:=TrackBar1.Position*13; end;    procedure TForm1.Button7Click(Sender: TObject); begin   form1.Close; end;    procedure TForm1.Button8Click(Sender: TObject); begin   form1.OleContainer1.DestroyObject;      form1.OleContainer2.Paste;    end;    end.