Переношу процедуры в отдельный модуль подскажите по структуре

unit MyUses1;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls,
  Vcl.ComCtrls, Vcl.Menus, System.ImageList, Vcl.ImgList, Vcl.ToolWin,
  Vcl.WinXCalendars, Vcl.Buttons, Data.DB, Vcl.Grids, Vcl.DBGrids, System.IniFiles;
 
type
  TUser = class(TObject)
  public
    Valid: Boolean;
    Id: Integer;
    Login: string;
    Password: string;
    FIO: string;
    TabNomer: string;
    Status: Boolean;
    constructor Create; dynamic;
    destructor Destroy; override;
  end;
 
  TConfig = class(TObject)
  private
    FFileNameConfig, FFileNameMestoRaboti, FFileNameDetalName: string;
    FMestoRabotiNoMore, FDetalNameNoMore: Integer;
    FUserSotrudnikModif: Boolean;
    FPanelNameFull, FFieldNameFull: TStringList;
    FIdTipByItemIndex, FTipByItemIndex, FShowPanelItemIndex, FShowColumnItemIndex: TStringList;
    FColumnName, FColumnWidth: TStringList;
    FItemIndexByIdTip, FTipByIdTip: TStringList;
  public
    constructor Create; dynamic;
    destructor Destroy; override;
    procedure InitConfig;
  public
    property FileNameConfig: string read FFileNameConfig write FFileNameConfig;
    property FileNameMestoRaboti: string read FFileNameMestoRaboti write FFileNameMestoRaboti;
    property FileNameDetalName: string read FFileNameDetalName write FFileNameDetalName;
    property MestoRabotiNoMore: Integer read FMestoRabotiNoMore write FMestoRabotiNoMore;
    property DetalNameNoMore: Integer read FDetalNameNoMore write FDetalNameNoMore;
    property PanelNameFull: TStringList read FPanelNameFull;
    property FieldNameFull: TStringList read FFieldNameFull;
    property IdTipByItemIndex: TStringList read FIdTipByItemIndex;
    property TipByItemIndex: TStringList read FTipByItemIndex;
    property ShowPanelItemIndex: TStringList read FShowPanelItemIndex;
    property ShowColumnItemIndex: TStringList read FShowColumnItemIndex;
    property ColumnName: TStringList read FColumnName;
    property ColumnWidth: TStringList read FColumnWidth;
    property ItemIndexByIdTip: TStringList read FItemIndexByIdTip;
    property TipByIdTip: TStringList read FTipByIdTip;
  end;
 
  procedure SetListNoMore(var List: TStringList; NoMore: Integer = 1000);
 
  function ListNoMore(List: TStrings; NoMore: Integer = 1000): TStrings;
  function SetFullInfo(Table: string = 'Catalog'): TStringList;
  function DatabaseConnection: Boolean;
  function SetSQLParam(field, str: string; prefix: string = ''; sufix: string = ''): string;
  function SetSQLParamFloatBetween(FieldName, InStr: string; OperDef: string = ' = '): string;
 
var
  User: TUser;
  Config: TConfig;
 
implementation
 
uses
  DataModule1;
 
{ TUser }
................
 
{TConfig}
 
procedure TConfig.InitConfig;
var
  ConfigIni: TIniFile;
begin
  with DM1.FDQToolTipAll do begin
    Close;
    Open;
    var I := 1;
    while not Eof do begin
      Config.IdTipByItemIndex.Add(FieldByName('IdTip').AsString);
      Config.TipByItemIndex.Add(FieldByName('Tip').AsString);
      Config.ShowPanelItemIndex.Add(FieldByName('ListShowPanel').AsString);
      Config.ShowColumnItemIndex.Add(FieldByName('ListShowColumn').AsString);
 
      Config.ItemIndexByIdTip.Values[FieldByName('IdTip').AsString] := IntToStr(I);
      Config.TipByIdTip.Values[FieldByName('IdTip').AsString] := FieldByName('Tip').AsString;
 
      Next;
      Inc(I);
    end;
    Close;
  end;
..........
 
 
 
function DatabaseConnection: Boolean;
begin
.....
end;
 
end.