Проблемы с DLL и TCheckListBox

[lexaltd]

Например:
В DLL такая процедура

procedure MONTH(CheckListBox : TCheckListBox);StdCall;
var
 i : Integer;
begin
 for i := 0 to CheckListBox.Items.Count - 1 do 
  if CheckListBox.Checked[i] = True then
   begin
     ShowMessage(IntToStr(CheckListBox.ItemIndex));
     ShowMessage(CheckListBox.Items[i]);
   end;
end;

В .EXE вызывается так

MONTH(CheckListBox1)

При вызове процедуры не чего не происходит MONTH(CheckListBox1) (все пункты выделены) , но если поставить if CheckListBox.Checked[i] = False then - то работает , но он считает что все пункты без галок , хотя все с галками , при этом пункт выделеный он показывает правильно ShowMessage(IntToStr(CheckListBox.I temIndex));

Можете подсказать что не правильно , и вобще можно работать с компонентами через DLL ?

P.S Нашёл один ответ в инети Run-time packages, но для меня он не очень

[VVM]

Возможно, у вас такая же проблема: http://programmersforum.ru/showthread.php?t=58472