Per Klasse auf übergeordnete Klasse zugreifen?

[Pseudemys Nelsoni]

Moin christian,

vielleicht habe ich es schlecht ausgedrückt, aber ich meinte es so:

Ich habe eine Subklasse und eine Hauptklasse, die so aussehen:

Delphi-Quellcode:

TServer = class(TPersistent)
private
    function GetHost: string;
    procedure SetHost(const Host: string);
    function GetPort: Word;
    procedure SetPort(const Port: Word);
  published
    property Host: string read GetHost write SetHost;
    property Port: Word read GetPort write SetPort;
  end;

TMainClass = class(TComponent)
private
  FClientSocket: TClientSocket;
  FServer: TServer;
published
  Server: TServer read FServer write FServer;
end;

So... TServer ist eine Klasse für die "Kategorie" "Server" die man nachher im OI sehen kann mit seinen Membern "Host" und "Port"...
Die privaten Methoden dieser Klasse müssen irgendwie an die gleichnamigen Properties des Feldes "FClientSocket" der Hauptklasse kommen... nur wie? Ich finde meine obige Idee "unsauber".

Edit:

@Elvis: wie komme ich an den Owner? TPersistent muss man keinen übergeben....welche Klasse sollte ich stattdessen verwenden?