Как выдавить region через Delphi ?

Попытаюсь поставить вопрос по-другому:

var
Oleregion: OleVariant;
region: IAcadRegion;
Solid: IAcad3DSolid;
region:= ModelSpace.AddRegion(Contur);

... здесь, по-видимому, как то надо преобразовать OleVariant в тип IAcadRegion ...

Solid:= ModelSpace.AddExtrudedSolid(region, 200, 0);

Если кто знает, как правильно преобразовывать тип OleVariant, подскажите пожалуйста. Заранее спасибо.

Спасибо за ответ.
Преобразовать вариант таким макаром я пытался - без результатно (Invalid typecast).
Вышел из проблемы по-другому.
Может кому пригодится.
Дело в том, что выдавливать регион мне необходимо сразу после его создания. Т.е. получить доступ к этому региону можно через порядковый номер объекта в базе приметивов.

var
  Oleregion, Contur: OleVariant;
 //геморой, но небольшой (ко всему привыкаешь)
  region: IAcadRegion;
begin
Contur:= VarArrayCreate([0, 0], varDispatch);
Contur[0]:= Polyline; //IAcadPolyline
OleRegion:= ModelSpace.AddRegion(Contur);
region:= (ModelSpace.Item(ModelSpace.Count-1) as IAcadRegion);
//выдавливаем на 500 по оси Z с улом поворота 0
ModelSpace.AddExtrudedSolid(region, 500, 0);
//СОВЕТ: удаляйте всё ненужное
PolyLine.Delete;
region.Delete;
...
end;

Пример предложенный Алексеем верен. Спасибо.
В свое время я решал эту проблему SendCommand'ом
Сейчас так
var
Reg1, Reg2:Olevariant;
Kontur : OleVariant;
region: IAcadRegion;
begin
Выдавливание сложного контура из прямых и дуг:
Kontur:=VarArrayCreate([0,8], vardispatch );
Kontur[0]:=Arc2;
Kontur[1]:=Arc5;
Kontur[2]:=Line5;
Kontur[3]:=Arc7;
Kontur[4]:=Line7;
Kontur[5]:=Line8;
Kontur[6]:=Arc8;
Kontur[7]:=Line6;
Kontur[8]:=Arc6;
Reg1:=okno.ModelSpace.AddRegion(Kontur);
region:= (Okno.ModelSpace.Item(Okno.ModelSpace.Count-1) as IAcadRegion);
Okno.ModelSpace.AddExtrudedSolid(region, 120, 0);