Hook up the DB: From ThtDBWebApp to the TDatasource

function TfmAppDBHTML.Init:Boolean;
begin
  Result:= inherited Init;
  if not result then
    exit;
  with TwhdbApplication(pWebApp) do begin
    ChunkDataSource:=DataSource1;  // hook up the database for chunks.
    ChunkFieldName:='ChunkText';
    CacheDBChunks:=true;  // turn on to optimize performance.
    end;
  BtnLoadClick(nil);  // automatically load the database
end;