1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

...
type
  RemoteObjectManager = class(MarshalByRefObject, IRemoteObjectManager)
  public
    function EchoStr (Str : string) : string; //<--- Diese Funktion soll nicht in dieser Unit implementiert werden, sondern in einer Klasse, die sich in einer anderen Unit befindet
  end;

const
  Port = 4242;
  ServerResource = 'RemoteObjectManager.soap';

var chan : TcpChannel;
begin
  WriteLn('Server wurde gestartet');
  Chan := TcpChannel.Create(Port);
  ChannelServices.RegisterChannel(Chan);
  RemotingConfiguration.RegisterWellKnownServiceType(typeof(RemoteObjectManager),ServerResource,WellKnownObjectMode.SingleCall);
  WriteLn('Mit Tastendruck Server beenden');
  klasse := tClass1.Create; // <- in dieser feschen Klasse befindet sich die EchoStr Methode
  ReadLn;
  klasse := nil;
end.                    

1:
2:
3:
4:

  RemoteObjectManager = class(MarshalByRefObject, IRemoteObjectManager)  
  public  
    function EchoStr (Str : string) : string; virtual; abstract;//<--- Diese Funktion soll nicht in dieser Unit implementiert werden, sondern in einer Klasse, die sich in einer anderen Unit befindet  
  end;