USB通讯问题-驱动问题

我在开发程式遇到用USB连接设备需要驱动，请问下我如何把驱动写入到程式中；
驱动名称是'LumiUSB.sys'， 设备是easyarm5749 ；用USBDEBUG调试连接上了
但不知道如何在程式中添加
    status := SI_GetNumDevices(@dwNumDevices);
    if status = SI_SUCCESS then
    begin
      status := SI_GetProductString(0,@devStr[0],SI_RETURN_SERIAL_NUMBER);
      if status = SI_SUCCESS then
      begin
        StatusBar1.Panels[0].Text :=String(devStr)+'已连接';
      end;
    end;
    if status <> SI_SUCCESS then
    begin
       bOpenDevice:=false;
       RefreshBtn(true);
       str:='通讯失败！';
       StatusBar1.Panels[0].Text :=str;
       Application.MessageBox(pchar(str),SystemTitle,MB_OK or MB_ICONWARNING);
       exit;
请大哥大姐们帮帮忙 谢谢