Вопрос про Com+

[velk]

Либо этот
procedure TForm1.Button1Click(Sender: TObject);
Var Axapta : Taxapta2;
begin

Axapta := TAxapta2.Create(NIL);
Axapta.Logon2('','','cor','ru','','','WORK_DIRECT');
Axapta.CallJob(WideString('CORI01_FillCASnapshot_Job'));
Axapta.Logoff();

end;