procedure THIDS_SQLite._work_doOpen;
begin
  if checkSqliteLoaded then
  begin
    Close;
    sqlite3_open(PChar(CodePage1ToCodePage2(ReadString(_Data,_data_FileName, _prop_FileName), CP_ACP, CP_UTF8)), id);
    if id <> nil then
      _hi_CreateEvent(_Data, @_event_onOpen)
    else  
      _hi_CreateEvent(_Data, @_event_onError);
  end;
end;