#sha
Add(OLEdb,11788416,399,133)
{
 Point(onError)
 link(onConnect,11978735:doMessage,[(457,139)(457,111)])
 link(Driver,13030624:Text,[])
 link(onError,2469999:doMessage,[(443,146)(443,160)])
}
Add(Edit,13030624,399,77)
{
 Left=20
 Top=10
 Width=735
 Text="Provider=SQLOLEDB.1;User ID=Админ;Password=123;Initial Catalog=D:\Archiv\DB_Konf_090108_0810\;Data Source=t;Application Name=1C"
}
Add(Button,4202735,294,133)
{
 Left=290
 Top=115
 link(onClick,11788416:doOpen,[])
}
Add(Message,11978735,483,105)
{
 Caption="Ok"
}
Add(Message,2469999,483,154)
{
 Caption="Error"
}

#pas
procedure TForm1.Button1Click(Sender: TObject);
Var
  ResOpen : integer;
begin
  Ole1C := Unassigned;
  Ole1C := CreateOleObject(Edit1.Text);
  ResOpen:=Ole1C.Initialize(Ole1C.RMTrade, Edit2.Text, '');
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  ListBox1.Items.Clear;
  OleFizLica := Unassigned;
  if not VarIsEmpty(Ole1C) then begin
     OleFizLica:=Ole1C.CreateObject('Справочник.Номенклатура');
     if not VarIsEmpty(OleFizLica) then begin
       if OleFizLica.ВыбратьЭлементы>0 then begin
          while OleFizLica.ПолучитьЭлемент>0 do
           begin
            ListBox1.Items.Add(OleFizLica.Код+'  '+OleFizLica.Наименование);
          end;
       end;
     end;
  end;
  OleFizLica := Unassigned;
end;

#pas
   private
    Ole1C : OleVariant;
    r:string;

procedure THIRun_1C_OLE._var_ParamConnect;
begin
   r:= VarToStr(Ole1C);
   dtString(_data, r);
end;

#pas
type
 THiAsmClass = class(TDebug)
   private

   public
    Ole1C : OleVariant;
    OleFizLica : OleVariant;
    ID :THI_Event;
     procedure doProcess(var _Data:TData; Index:Word);
 end;

procedure THiAsmClass.doProcess(var _Data:TData; Index:Word);
Var 
   s : string;
   t : Variant;
begin
 s:= ReadString(_data,ID,');
end;