Пробую создать dll компоненту для работы с 1с, нашел пример на Delphi 
но он не работает подскажите, что не так

пишет ошибку (у меня Delphi 6):
[Error] Unit1.pas(68): Undeclared identifier: 'VarType'

Если комментирую строку на которой ошибка (в принципе она не нужна), выдается следующая

[Error] wzdemo.dpr(23): Incompatible types: 'TFPList' and 'Class reference'

в чем проблема очень надо внедрить для 1с:        
 

А зачем тебе эта строка? Ее быть не должно 
Создал ActiveX library - просто создай Automation object с нужной функциональностью, не надо ничего изобретать.

без нее dll компилируется, но в 1с выдает ошибку: 

Ошибка при создании объекта из компоненты C:\awzdemo\awzmd\wzdemo.dll (отсутствует интерфейс IInitDone)
ы=СоздатьОбъект("AddIn.ob1");   
{Глобальный модуль(8)}: Неудачная попытка создания объекта (AddIn.ob1)

скаченный архив из интернета: awzproject.rar
исходники и они не работают 


Присоединённый файл ( Кол-во скачиваний: 16 )
 awzproject.rar 5,77 Kb

скаченный второй архив для 1с, загружаю частями:
1) awzmd.part1.rar

Присоединённый файл ( Кол-во скачиваний: 11 )
 awzmd.part1.rar 97,66 Kb

скаченный второй архив для 1с, загружаю частями:
2) awzmd.part2.rar 

Присоединённый файл ( Кол-во скачиваний: 10 )
 awzmd.part2.rar 61,50 Kb

Угу. А со строкой - вообще не компилируется   
Понимаешь, компонента для 1С - вещь не особо нужная. Я же тебе сказал: сделай обычный дуальный интерфейс, свой. И работай с ним в 1С из кода 1С.
А если хочешь создать именно компонент - бери руководство. Тебе там, если память не изменяет, нужно создать как минимум реализацию интерфейса-дублера IDispatch. "Облегчили" работу, млин.

ПОДСКАЖИ ПЛИЗ  как       , а то мне век разбираться придется так как я в Delphi не пишу

мне нужно чтоб при вызове процедуры в 1с обработка передавалась в dll там обрабатывалось и возвращались результаты в 1с 

Ну да. И зачем тебе компонент?
1. New -> ActiveX library. Сохраняешь под именем MyTestLib
2. New -> Automation Object. В окне задаешь имя MyTest
3. View -> Type library. Становишься на интерфейс (красный), нажимаешь кнопку добавить метод. Вводишь имя Add и два параметра, a integer, b integer, результат - тоже integer
4. Нажимаешь обновить, идешь в модуль и пишешь Result := a+b;
5. Run -> Register ActiveX Server
6. В 1С в коде пишешь: 
МойОбъект = СоздатьОбъект("MyTestLib.MyTest")
А = МойОбъект.Add(2,3)
Любуешься результатом...
Трудности у тебя могут возникнуть на шаге 3, при вводе параметров. Будут - подскажу

View -> Type library - неактивна 



Подсказывай    

Возникли. Не получается указать, что метод Add не процедура, а функция.

Добавить третий параметр, тип long*, флаги [out, retval] - это и будет результат