#language PascalScript

var 
  srv :variant;


begin
  srv := CreateOleObject('XPRICERT.XPRSRV');
  showMessage('Ok');
end.