[Aristarh Dark]

Код:

type
  TForm1 = class(TForm)
  private
    { Private declarations }
    ....
    ....
    procedure MyPhoneHook(ASender: TObject; bOnHook: WordBool);
  public
    { Public declarations }
  end;
....
....
begin
b:=usbphone1.AllOpenPhone(0); //инициализирую телефон
s:=usbphone1.AllGetPhoneSerialNumber; //получаю серийный номер

usbphone1.OnEventPhoneHook:=MyPhoneHook; //присваиваем событие процедуре

// usbphone1.AllClosePhone; сходу закрывать телефон наверно не надо, иначе собыите работать не будет
end;

procedure TForm1.MyPhoneHook(ASender: TObject; bOnHook: WordBool);
begin
  //тут обработчик события
end;

ИМХО так надо.