[Jury_yamal]

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

Код:

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

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

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

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

Код:

1 2 3 4

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

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12

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
Собственно вопрос что можно сделать чтобы работало.