[Jury_yamal]

Добрый вечер всем.
Имеются 3 модуля: главный модуль с формой в котором есть процедура

Код:

procedure SocketInit (Sender: TObject; const Event:TTransferEventIMS);

Тип TTransferEventIMS описан в втором модуле как

Код:

unit TransferServerIMS;

interface

uses SysUtils,
     Windows,
     Messages,
     Classes,
     SyncObjs,
     ExtCtrls,
     SetupFormIMS,          // юнит с формой для настройки соединения с сервером кодов
     CodesServer_TLB,
     TransferTCP;           // юнит для обменна с сервером кодов по протоколу ТСР
type
  TErrorEventIMS = TErrorEvent;  // для главного юнита чтобы можно было прочитать на каком этапе произошла Ошибка
  TTransferEventIMS = TTransferEvent;

А тип TTransferEvent описан в 3 модуле как

Код:

  TTransferEvent = (seCreateTCP, seCreateDCOM, seLookupTCP,seLookupDCOM,
    seConnectingTCP, seConnectingDCOM, seConnectTCP, seConnectDCOM,
    seDisconnectTCP, seDisconnectDCOM, seWriteTCP, seWriteDCOM, seReadTCP,
    seReadDCOM, seErrorTCP, seErrorDCOM);

Так вот если внутри процедуры в главном модуле попробовать написать следующее

Код:

procedure TForm1.SocketConnect(Sender: TObject; const Event:TTransferEventIMS);
begin
case Event of
    seCreateTCP: InitMemo.Lines.Add('CreateTCP');
    seCreateDCOM: InitMemo.Lines.Add('CreateDCOM');
    seLookupTCP:  InitMemo.Lines.Add('LookupTCP');
    seConnectingTCP: InitMemo.Lines.Add('ConnectingTCP');
    seConnectingDCOM: InitMemo.Lines.Add('ConnectingDCOM');
    seConnectTCP: InitMemo.Lines.Add('connectTCP');
    seConnectDCOM: InitMemo.Lines.Add('connectDCOM');
  end;
end;

То получаем Undeclared identifier seCreateTCP и т.д для каждого se
Собственно вопрос что можно сделать чтобы работало.