Problem z wywołaniem funkcji w evencie

Witam,

mam funkcję, która działa dobrze po kliknięciu buttona:

procedure TForm1.Button3Click(Sender: TObject);
begin
  try
    Screen.Cursor := crHourGlass;
    try
      intf.ExecuteControllerCommand(162, 1); //<--- to jest ta funkcja
    finally
      Beep();
      Screen.Cursor := crDefault;
    end;
  except
    on e: Exception do
      HandleException(e);
  end;
end;
 

Jednak, gdy chce ją wykonać w evencie rzuca wyjątkiem(dotyczy on braku mozliwosci otwarcia drzwi)

 
procedure TForm1.HandlerOnMonitoringEvent(ASender: TObject;
                                date: TDateTime; time: TDateTime; networkID: Integer;
                                readerID: Integer; userID: Integer; groupID: Integer;
                                eventCode: Integer; zoneID: Integer; TandAID: Integer;
                                const strEvent: WideString; const strAccessPoint: WideString;
                                const strUserSource: WideString; const strGroup: WideString;
                                const strNetwork: WideString; const strZone: WideString;
                                const strTandAMode: WideString);
begin
  ListBox1.Items.Add(DateToStr(date) + ' ' + TimeToStr(time) + '; ' + strEvent +
    '; ' + strAccessPoint + '; ' + strUserSource + '; ' + strGroup + '; ' + strNetwork +
    '; ' + strZone + '; ' + strTandAMode);
  try
    Screen.Cursor := crHourGlass;
    try
      intf.ExecuteControllerCommand(162, 1); //<--- to jest ta funkcja
    finally
      Beep();
      Screen.Cursor := crDefault;
    end;
  except
    on e: Exception do
      HandleException(e);
  end;
end;

Co ciekawe, gdy probuje wywołac 'sztucznie' kliknięcie buttona(gdzie funkcja dziala poprawnie) z procedury eventu rzuca tym samym wyjątkiem!

 Form1.Button3Click(Button3);

O co chodzi? :(

jaki wyjątek...