初学者请各位大虾帮我详解这段代码是如何工作的，解释越详细越好 附代码

Question

procedure TdmABS.dmABSCreate(Sender: TObject);
begin
  inherited;
  SetDefFontsFile;
  m_eDBType := eSQLServer;
  m_bAbortConnection := False;
  m_bRetryConnection := False;
  m_pSession.SessionName := DefSessionName; //'VWMHP'
  Database.SessionName := DefSessionName;
  Database.DatabaseName := sfDatabaseName;
  Database.AliasName := sfAliasName;  m_pQuery.SessionName := DefSessionName;//VWMHP
  m_pQuery.DatabaseName := sfDatabaseName;  m_pListQuery1.SessionName := DefSessionName;//VWMHP
  m_pListQuery1.DatabaseName := sfDatabaseName;
  m_pListQueryPool[1] := m_pListQuery1;
  m_pListQuery2.SessionName := DefSessionName;//VWMHP
  m_pListQuery2.DatabaseName := sfDatabaseName;
  m_pListQueryPool[2] := m_pListQuery2;
  m_pListQuery3.SessionName := DefSessionName;//VWMHP
  m_pListQuery3.DatabaseName := sfDatabaseName;
  m_pListQueryPool[3] := m_pListQuery3;  m_pTempQuery.SessionName := DefSessionName;
  m_pTempQuery.DatabaseName := sfDatabaseName;  m_pListQueryCallerPool[1] := nil;
  m_pListQueryCallerPool[2] := nil;
  m_pListQueryCallerPool[3] := nil;                        // try to login to database, if login failed,
                        // terminate the application.
  if bfOpenDatabase then   //登陆事件触发
  begin
    SetDataSetProperty(pfQuery); //设置数据集的属性
    OnDatabaseOpen;              //没实现
  end
  else