有个难题,请大家帮帮看看

有一个主窗口代码如下:
unit mainfrm;
interface
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ChannelUnit,
  DataDefine, StdCtrls;
type
  TfrmMain = class(TForm)
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  frmMain: TfrmMain;
implementation还有一个三层服务端的代码:
unit DataConnectModule;
interface
uses
  Windows, Messages, SysUtils, Classes, ComServ, ComObj, VCLCom, DataBkr,
  DBClient, LcRecordSys_TLB, StdVcl, Db, ADODB, Provider, DataDefine;
type
  TConnectModule = class(TRemoteDataModule, IConnectModule)
    DataSetProviderOP: TDataSetProvider;
    ADOQueryOP: TADOQuery;
  private
    { Private declarations }
  protected
    class procedure UpdateRegistry(Register: Boolean; const ClassID, ProgID: string); override;  public
    procedure StateChange(Ch: Integer);
    { Public declarations }
  end;
implementation以上代码在同一个进程中
如何才能在主窗口中访问三层结构服务端中的procedure StateChange(Ch: Integer);这个函数,请高手请教.........