TForm1 = class(TForm)
   Button1: TButton;
   procedure FormClose(Sender: TObject; var Action: TCloseAction);
   procedure Button1Click(Sender: TObject);
 public
   FOwner: TForm;
   FDesigner: IDesigner;
   FEditorInterface: TIEditorInterface;
 end;

{===============================================}

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 Action := caFree;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 // СЮДА вот как раз и надо будет вставить текст.
 // Как мне кажется:
 // Через FDesigner надо вставить обработчик на метода
 // Через FEditorInterface надо вставить текст в обработчик
 // но как это сделать? не представляю :(
end;

TMyComponent = class(TComponent)

 TMyPropEditor = class(TComponentEditor)
   procedure ExecuteVerb(Index: Integer); override;
   function GetVerb(Index: Integer): string; override;
   function GetVerbCount: Integer; override;
 end;

{===============================================}

procedure TMyPropEditor.ExecuteVerb(Index: Integer);
var
 myComponent: TMyComponent;
 sName: string;
 
begin
 sName := ToolServices.GetCurrentFile;
 sName := Copy(sName,1,length(sname)-4)+'.pas';
 myComponent := Component as TMyComponent;
 with TForm1.Create(application) do begin
   FOwner := TForm(myComponent.Owner);
   FDesigner := self.Designer;
   FFEditorInterface := ToolServices.GetModuleInterface(sName).GetEditorInterface;
   Show;
 end;
end;

function TMyPropEditor.GetVerb(Index: Integer): string;
begin
 case Index of
   0: Result := 'MY Editor';
   else Result := '';
 end;
end;

function TMyPropEditor.GetVerbCount: Integer;
begin
 Result := 1;
end;

procedure Register;
begin
 RegisterComponents('Sample',[TMyComponent]);
 RegisterComponentEditor(TMyComponent, TMyPropEditor);
end;