1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

type
  TClass1 = class
  private
    FVar1: TSomething;
    FVar2: TSomething;
    procedure SetVar1(Value: TSomething);
    procedure SetVar2(Value: TSomething);
  public
    Var1: TSomething read FVar1 write SetVar1;
    Var2: TSomething read FVar2 write SetVar2;
  end;

  TClass2 = class
  private
    FClass1: TClass1;
  public
    Class1: TClass1 read FClass1 write FClass1;
  end;					

1:
2:
3:
4:
5:

var
  Class2: TClass2;
begin
  Class2 := TClass2.Create;
  Class2.Class1.Var1 := Something;					

1:
2:
3:
4:
5:
6:
7:

  TClass2 = class
  private
    FClass1: TClass1; 
    SetClass1(Value: TClass1);
  public
    Class1: TClass1 read FClass1 write SetClass1;
  end;					

1:

  Class1 := Value;					

1:
2:
3:
4:
5:

var 
  Class2: TClass2; 
begin 
  Class2 := TClass2.Create; 
  Class2.Class1.Var1 := Something;					

1:
2:
3:
4:
5:
6:

procedure TClass2.SetClass1(Value: TClass1);
begin
  FClass1.FVar1 := Value.FVar1;
  // ...
  // ...
end;					

1:
2:
3:
4:
5:
6:

procedure TClass2.SetClass1(Value: TClass1);
begin
  FClass1.FVar1 := Value.FVar1;
  // ...
  // ...
end;					

1:
2:
3:
4:

procedure TClass2.SetClass1(Value: TClass1);
begin
  FClass1 := Value;
end;					

1:

FClass1 := Value;