Сохранение фрагмента в растровый формат

[thenil]

Вопрос элементарный и даже ламерский, но с чего-то начинать нужно.

Сабж: сохранить активный документ в, предположим, JPEG.
В хелповых примерах ничего похожего не нашёл, посему писал по аналогии. Писал в Delphi.

Имеем функцию:

Procedure SaveJPG(str:string);
var
  rasterPar    : ksRasterFormatParam;
begin
    rasterPar := ksRasterFormatParam( kompas.activedocument2D  ); 

  if rasterPar = nil then  Exit;

    rasterPar.Init;
  With rasterPar do
   begin
    format:=FORMAT_BMP;
    colorBPP:=BPP_COLOR_01;
    greyscale:=true;
    extResolution:=0;
    extScale:=1;         
    colorType:=BLACKWHITE;
    OnlyThinLine:=true;
    Pages:='1-1';
    multiPageOutput:=false;
    rangeIndex:=0;     
   end;
    end;

If iDocument2D.SaveAsToRasterFormat(str, rasterPar   ) then  Kompas.ksMessage('Сохранил '+str);

end;

При компиляции и последующем запуске - вылетает с системной ошибкой на этапе выполнения функции rasterPar.Init.

Надеюсь на помощь.

[Slaviation]

 rasterPar := ksRasterFormatParam( kompas.activedocument2D  ); 
doc:= ksDocument2D( kompas.ActiveDocument2D  );
rasterPar := ksRasterFormatParam( doc.RasterFormatParam); 

[thenil]

Большое спасибо!