Описание контейнера для внедряемых объектов

// описание панели для внедрения
embedded emObj1 OLE;
end;

var l : longInt;

procedure MakeMyObj1;
begin
  l := OleCreate ('MyDataObject1');
  if l = 0 then
	exit;
  // связывание объекта и site'а
  OleEmbed (l, emObj1);
end;

Аналогично области ввода screen или browse разрешается задавать координаты Embedded-панели и пользовательский ToolBar:

// описание панели для внедрения
embedded emObj1 OLE;
  show at (4,5,77,23);
  toolBar tbObj;
end;