[sorockinalex]

не пойму, в каком месте нужно объявлять DM и переменные, чтобы они были видны другим модулям.???

Код:

unit UDataModule;

interface

uses
  Windows, Messages, SysUtils,Classes,Dialogs, DB, ADODB, IniFiles;

type
  TExecuteModal = procedure;
  TFamilyName = function:string;
  TPluginName = function:string;

  TDM = class(TDataModule)
    Query: TADOQuery;
    DataSet: TADODataSet;
    procedure DataModuleCreate(Sender: TObject);
  private
  public
  end;

procedure LoadPlugin(PlName:String; H:HWND);

const
  MY_MESSAGE = WM_USER + 1;

var
  DM: TDM;
  //
  ParentHandle:HWND;
  //Ãëîáàëüíûå ïåðåìåííûå äëÿ ëîãèíà ïîëüçîâàòåëÿ
  Employee_Key:Cardinal;
  Employee_Id:Cardinal;
  Employee_Pass,
  Employee_Name1,
  Employee_Name2,
  Employee_Name3:string;
  Logon_Key:Cardinal;


implementation

{$R *.dfm}