Вопрос про объекты.

[Sergei32]

Есть два класса

type Tg1 = class
ff: integer;
procedure Plus(i: integer);

private

public

end;

type Tt2= class
b1: Tg1;
vv: integer;

private

public

end;

procedure Tg1.Plus(i: integer);
begin
//Что здесь написать чтобы t2.vv присвоилось i 
//Вызов предположим t2.b1.Plus(100);
end;

Нужно чтобы при вызове в метода Plus класса g1 в теле этого метода присвоить полю родительского t2 какое нибудь значение например 100 как это сделать?

[Stilet]

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

type Tg1 = class
 ff: integer;
 procedure Plus(i: integer;obj:TObject);
private

public

end;

type Tt2= class
b1: Tg1;
vv: integer;

private

public

end;

procedure Tg1.Plus;
begin
 Tt2(obj).vv:=i;
end;

var p:Tg1;w:Tt2;
begin
 p:=Tg1.Create;
 w:=Tt2.Create;
 p.Plus(5,w);
 //...
 p.Free;
 w.Free;
  { TODO -oUser -cConsole Main : Insert code here }
end.

В кратце: Привидением типов. Пояснения требуются?