procedure TForm1.export1С;
var
  Oleobj: Olevariant; //OLE-объект программы 1С:Предприятие
begin
  Oleobj := createoleobject('V1CEnterprise.Application'); //Создаю OLE-объект
  Oleobj.initialize(Oleobj..RMTrade, '/DPass /NName /P123', 'NO_SPLASH_SHOW');//Инициализирую объект
  .........
  .........
  Oleobj := UnAssigned; //Освобождаю объект
end;

   Doc.New;
   Doc.ДатаДок:='31.12.2007';
   Doc.УстановитьНовыйНомер('');