Auf Objekte von Unterklasse aus Zugreifen

[n3cRo]

Hi,
hab ne Unit fmChatClient (Hauptformular) die nen Formular hat mit nem MemoFeld namens mProtokoll. In der Unit lade ich ne Klasse ChatClient.

Delphi-Quellcode:

unit fmChatClient;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, mChatClient;

type
  TfChatClient = class(TForm)
    eServerIP: TEdit;
    eZuSendenderText: TEdit;
    bSenden: TButton;
    bVerbinden: TButton;
    bTrennen: TButton;    
    bBeenden: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    mProtokoll: TMemo;
    procedure bVerbindenClick(Sender: TObject);
    procedure bTrennenClick(Sender: TObject);
    procedure bSendenClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure bBeendenClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    zServerIP: string;
    zVerbunden: boolean;
  public
    { Public-Deklarationen }
  end;

var
  fChatClient: TfChatClient;
  hatVerbindung: chatClient;

Diese hat die Variable kenntChatFormular. Die das obrige Formular repräsentieren soll. Über die möchte ich jetz auf das Memofeld zugreifen.

Delphi-Quellcode:

unit mChatClient;

interface

uses mCLientverbindung, Forms;

type
  ChatClient= class(ClientVerbindung)
  private
    kenntChatFormular:TForm;
  public
    constructor init(pIPAdresse:string; pPortNR:integer; pMitProtokoll: boolean; pFormular:TForm);
    procedure bearbeiteNachricht(pNachricht:string);override;
  end;

implementation

uses fmChatClient;

constructor ChatClient.init(pIPAdresse:string; pPortNR:integer; pMitProtokoll: boolean; pFormular:TForm);
begin
  inherited init(pIPAdresse, pPortNR, pMitProtokoll);
  kenntChatFormular := fChatClient;
end;

procedure ChatClient.bearbeiteNachricht(pNachricht:string);
begin
     //ShowMessage('hab was: ' + pNachricht);
     //kenntChatFormular.mProtokoll.Lines.Add(pNachricht);
end;

Aber das geht leider nicht so :'(
Kann mir einer helfen?!

Danke