procedure THIDS_SQLite._work_doClose;
begin
  Close;
  
end;

procedure THIDS_SQLite.Close;
begin
  if id = nil then exit;
  while (sqlite3_close(id) <> SQLITE_OK) and _prop_WaitClose do
    sleep(10);
  id := nil;
end;

procedure THIDS_SQLite._work_doClose;
begin
  Close;
  _hi_CreateEvent(_Data, @_event_onClose);
end;

  while (sqlite3_close(id) <> SQLITE_OK) and _prop_WaitClose do  sleep(10);