[CarnoPhage]

Здравствуйте. Извиняюсь сразу, за не очень информативный заголовок темы, но я не могу корректно сформулировать, поэтому попытаюсь объяснить на пальцах, в виде задачи.

Есть 2 класса, "отец" и "сын", у отца есть переменная "деньги", и свойсво "сын". У "сына" есть процедура "купить игрушку".

ВОПРОС:

Как сделать так, чтобы процедура "купить игрушку" у "сына", могла брать "деньги" у отца, т.е. получить доступ к переменной "деньги"

Код:

Type
TSon = class(TObject)
private
  function BuyToy(cost:integer) : string;
public
  property Buy[cost:integer]: string read BuyToy;
end;

type
TFather = class(TObject)
private
  Money:integer;
  Son1:TSon;
public
  property Son : TSon read Son1;
end;

function TSon.BuyToy(cost:integer):string;
begin
{Тут нужно получить доступ к переменной Money}
  Money:=Money – cost;
  result:=’Паравозик’;
end;

Не вдаваясь в подробности точного синтаксиса данного когда и его логики, хотелось бы получить ответ на поставленный вопрос. Заранее спасибо.