[Informat]

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

Код:

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.