多线程的小问题

在form中创建线程时，执行createit函数的第一行就报错。
....class EAccessViolation with message 'Access violation at address....部分代码如下，unit tLackdoc;interface
uses DBTables, Classes, DataMod, IniFiles, SysUtils, Forms, Windows, uConnectDefine, ComCtrls;
type
  TLackDocThread = class(TThread)
  private
  protected
    procedure Execute ; Override;
  public
    mydb           : TDataBase;
    myproc         : TStoredProc;
    myquery        : TQuery;
    fieldName      : array [ 1..7 ] of String;
    mydbtype       : Integer;
  published
    Destructor  Destroy;override;
    constructor Createit( PriorityLevel:TThreadPriority; dbType: Integer; m_handle: THandle; m_listview: TListView );
  end;var
  fieldName  : array [ 1..7 ] of String;
  mydb       : TDatabase;
  mydbtype   : Integer;
  myproc     : TStoredProc;
  myquery    : TQuery;
  frmHandle  : THandle;
  ResultView : TListView;
implementation// 在线程中生成数据
constructor TLackDocThread.Createit( PriorityLevel:TThreadPriority; dbType: Integer; m_handle: THandle; m_listview: TListView );
begin
  inherited Create( true );
  priority := TThreadPriority( PriorityLevel );
  frmHandle := m_handle;
  ResultView := m_listview;
  mydbtype := dbtype;
  mydb := nil;
  case dbType of
    1 : begin
          mydb := DM.dbxays;
          myproc := DM.StoredProc_xays;
          myquery := DM.Query_xays;
        end;
    2 : begin
          mydb := DM.dbxajf;
          myproc := DM.StoredProc_xajf;
          myquery := DM.Query_xajf;
        end;
    3 : begin
          mydb := DM.dbsxys;
          myproc := DM.StoredProc_sxys;
          myquery := DM.Query_sxys;
        end;
    4 : begin
          mydb := DM.dbsxjf;
          myproc := DM.StoredProc_sxjf;
          myquery := DM.Query_sxjf;
        end;
  end;end;