E-140
WRITE_FLASH_WORD не работает выдает ошибку?

вот текст программы:

pE140 := CreateInstance(PChar(ModuleName));
  if pE140 = nil then
  begin
    ShowMessage(/'Не могу найти интерфейс модуля!/');
    Exit;
  end;

  FIsReady:=false;
  for i:=0 to MAX_VIRTUAL_SLOTS_NUMBER-1 do
    if pE140.OpenLDevice(i) then
    begin
// прочитаем название модуля в виртуальном слоте
      if not pE140.GetModuleName(MName) then
      begin
        pE140.CloseLDevice;
        Continue;
      end;
// проверим, что это /'E-140/'
      if Boolean(StrComp(MName, PChar(ModuleName))) then
      begin
        pE140.CloseLDevice;
        Continue;
      end;
// получим информацию из ППЗУ модуля
      if not pE140.GET_MODULE_DESCR(@md) then
      begin
        pE140.CloseLDevice;
        Continue;
      end;

      FIsReady:=true;
      break;
    end;

  if not FIsReady then
  begin
    pE140.ReleaseLDevice;
    ShowMessage(/'Нет связи с оборудованием/');
    Exit;
  end;

  if not pE140.ENABLE_FLASH_WRITE(true) then
  begin
    pE140.CloseLDevice;
    pE140.ReleaseLDevice;
    ShowMessage(/'Ошибка доступа к записи !/');
      Exit;
  end;

Не работает здесь =====>>>>>>>
  if not pE140.WRITE_FLASH_WORD(32, $5555) then
  begin
    pE140.ENABLE_FLASH_WRITE(false);

    pE140.CloseLDevice;
    pE140.ReleaseLDevice;
    ShowMessage(/'Ошибка записи ! /');

    Exit;
  end;

  pE140.ENABLE_FLASH_WRITE(false);

  pE140.CloseLDevice;
  pE140.ReleaseLDevice;
  ShowMessage(/'Операция выполнена успешно !/');

ошибка в dll. я выслал вам на маил саму библиотеку и измененные исходники.

зы: новую версию сегодня выложат на сайт в раздел "библиотека файлов".