"sadovnikov писал(а) Вчера :: 12:27:
ТвойОбъект1С.ИмяЭкспортируемойГлобальнойПроцедуры(Параметры)
Ничего не понял ..."

Что именно не понял?
В Инит далаешь так:
function TRiK_SQL.Init(pConnection: IDispatch): HResult; stdcall;
begin
  p1c       := pConnection;

Когда потребуется что-то сделать в 1С, делаешь так:

  //Получение указателя на 1С
  if VarType(obj) And varTypeMask = varEmpty then begin
    obj := OleVariant(p1c).AppDispatch;
    IDispatch(obj)._AddRef;
  end;

А потом спокойно вызываешь свойства и методы глобального контекста 1С-ки. Вариантов несколько.

1.
TempStr := obj.EvalExpr('КаталогИБ()+"SYSLOG\links.tmp"');

2.
obj.ExecuteBatch('ОкноСообщений_Click()');

3.
Spis := ISpis(IDispatch(obj.CreateObject('ValueList')));

4.
       MethodName := 'Инет_СтрокаОтКлиента';
       if IDispatch(obj).GetIDsOfNames(GUID_NULL, @MethodName, 1, LOCALE_USER_DEFAULT, @MethodID) = S_OK then begin
           //Параметры идут в обратном порядке
           Args[0] := ConnectServer^.GUID;
           Args[1] := ConnectServer^.ReadStr;

           DispParams.rgvarg:=@Args;   //Инициализация массива Variant
           DispParams.rgdispidNamedArgs := nil;
           DispParams.cArgs := 2;
           DispParams.cNamedArgs := 0;
           IDispatch(obj).Invoke(MethodID, GUID_NULL, LOCALE_USER_DEFAULT, DISPATCH_METHOD, DispParams, @VarResult, @ExcepInfo, @ArgErr);
       end;