Создание невидимого OLE объекта Назад В начало Вперед

Создается объект MyObject.MyObj, у него считываются и устанавливаются свойства.

var l : longInt;
begin
  // создание
  l := OleCreate ('MyObject.MyObj');
  if l = 0 then
	exit;
  // установка свойства Color[0]
  OleCall2 (l, ocPut, 'Color', 10, 0);
  // i:= Some(7)
  var i : longInt;
  OleCall2 (l, ocFunc, 'Some', 7, i);
  // чтение свойства
  var s : string;
  OleCall1 (l, ocGet, 'Name', s);

  OleDestroy (l);
end;