// The class to be pointed to
  TChatLog = class
  private
    ChatMsgs : array [1..MaxChatBuff] of TChatLine;
    NextFree : Word;
  public
    constructor Create;
    procedure AddLine(Line : TChatLine);
  end;

 // The class pointing to it
  TMessageWin = class
  private
    ...
    TextBuff : ^TChatLog;
  public
    ...
    procedure LoadChannel(MsgBuff : TChatLog);
    ...
  end;

 // LoadChannel
  procedure TMessageWin.LoadChannel(var MsgBuff: TChatLog);
  begin
    TextBuff := @MsgBuff;
  end