m_hDriver := CreateFile('\\.\rvbedit', GENERIC_READ or GENERIC_WRITE, 0, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);

ShowMessage(frmMain.GetString(3055));

function TMainFormONS.LoadIODriver: boolean;
var s:String;
    hManager,hService:SC_HANDLE;
    b:PChar;
    TR:TResourceStream;
    tmpsdir:array[0..255] of char;
    m_hDriver:THandle;
begin
     if Win32Platform<>VER_PLATFORM_WIN32_NT   then
        begin
             result:=true;
             exit;
        end;
     s:=ExtractFilePath(ParamStr(0))+'giveio.sys';

     hManager := OpenSCManager(nil, nil, SC_MANAGER_ALL_ACCESS);
     if (hManager=0) then
     begin
          //ShowMessage(frmMain.GetString(3055));
          result:=false;
          exit;
     end;
hService := CreateService (hManager     // SCManager database
               , 'giveio'    // name of service
            , 'giveio'    // name to display
         , SERVICE_ALL_ACCESS  // desired access
      , SERVICE_KERNEL_DRIVER  // service type
      , SERVICE_DEMAND_START  // start type
      , SERVICE_ERROR_NORMAL  // error control type
      , pchar(s)    // service's binary
      , nil      // no load ordering group
      , nil      // no tag identifier
      , nil      // no dependencies
      , nil      // LocalSystem account
      , nil      // no password
      );
 if (hService=0) then
 begin
      //RaiseLastOSError;
      result:=false;
      exit;

 end;
 if (hService<>0) then CloseServiceHandle(hService);
 hService := OpenService(hManager, 'giveio', SERVICE_ALL_ACCESS);
 if (hService<>0) then
 begin
  b:=nil;
  if StartService(hService, 0, b) then
  CloseServiceHandle(hService)
  else ;//RaiseLastOSError;
 end;

 m_hDriver := CreateFile('\.giveio', GENERIC_READ or GENERIC_WRITE, 0, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);
 if (m_hDriver = INVALID_HANDLE_VALUE) then
 begin
  CloseServiceHandle(hManager);
  result:=FALSE;
  exit;
 end;
 CloseServiceHandle(hManager);
 result:=true;
end;

procedure TRVX.UnloadDriver;
var hManager,hService :SC_HANDLE;
    i_serviceStatus:SERVICE_STATUS;

begin
if not isLoaded then exit;
if Win32Platform<>VER_PLATFORM_WIN32_NT then exit;
CloseHandle(m_hDriver);

hManager := OpenSCManager(nil, nil, SC_MANAGER_ALL_ACCESS);
 if (hManager=0) then exit;

 hService := OpenService(hManager, PChar(s_rvxedit), SERVICE_ALL_ACCESS);
 if (hService=0) then exit;
 ControlService(hService, SERVICE_CONTROL_STOP, i_serviceStatus );

// DeleteService(hService) ;
 CloseServiceHandle(hService);
 CloseServiceHandle(hManager);

end;

ListView.Items.Add.Caption:='Test';

with ListView1.Items.Add do
begin
        Caption:='Item';
        SubItems.Add('SubItem');
        SubItems.Add('SubItem');
end;