RichEdit einer Klasse ansprechen

[Pseudemys Nelsoni]

hallo,

ich erzeuge es aus einer anderen unit heraus:

Delphi-Quellcode:

procedure Connect;
begin
  if Form4.CheckBox1.Checked then
  begin
    SetLength(Serv, length(Serv)+1);
    with Serv[High(Serv)] do
    begin
      StatusWindow := TStatusWindow.Create(nil);
      StatusWindow.StatusWindowName := 'blubb';
      StatusWindow.Caption := StatusWindow.StatusWindowName;
      StatusWindow.StatusButton := TToolButton.Create(StatusWindow);
      StatusWindow.StatusButton.Parent := Form1.ToolBar2;
      StatusWindow.StatusButton.Caption := '*' + StatusWindow.StatusWindowName;
      StatusWindow.StatusButton.Show;
      StatusWindow.ClientSocket := TClientSocket.Create(StatusWindow);
      @StatusWindow.ClientSocket.OnRead := @TStatusWindow.SockReadProc;
      @StatusWindow.ClientSocket.OnError := @TStatusWindow.SockErrorProc;
      StatusWindow.ClientSocket.Host := 'server';
      StatusWindow.ClientSocket.Port := port;
      StatusWindow.ClientSocket.Open;
    end;
  end;
end;