[NumLock]

Код:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

type
  TCLASS2 = class;

  TCLASS1 = class
    B: TCLASS2;
    procedure A;
  end;

  TCLASS2 = class
    A: TCLASS1;
    procedure B;
  end;

var
  A: TCLASS1;
  B: TCLASS2;

{ TCLASS1 }

procedure TCLASS1.A;
begin
  Writeln('A');
end;

{ TCLASS2 }

procedure TCLASS2.B;
begin
  Writeln('B');
end;

begin
  A:=TCLASS1.Create;
  B:=TCLASS2.Create;
  A.B:=B;
  B.A:=A;

  A.B.B;
  B.A.A;

  B.Free;
  A.Free;

  Readln;
end.