[Mailman-Users] Can't call server function

[ashrafi]

I have a problem by my corba program in delphi,
So when I want to type cast for early binding it retuens nil, why?

with IUnknown(Client_DM.CorbaConnection1.AppServer ) as IFirstCorbaDM do
   MyServerFunc;

whitch :
  TFirstCorbaDM = class(TCorbaDataModule, IFirstCorbaDM) 
  .....
 end;

is my server data module

please help me.