Классы, Delphi Опции

[Klose]

Вобщем хочу в игре нечто типа законов физики. Создал главный класс и от него породил потомков. Примерно так:

type Main=class
private
F, m, g:single;//F-сила тяжести, m- масса, g-постоянная,

constructor Init;
procedure Process;
procedure Draw;

end;

Если я где-нибудь в главном классе пропишу, что F:=m*g, это будет считаться для потомков?
И если да, то для каждого потомка будет находится своя F (m у всех потомков разная) ?

P.S. Может не четко задал вопрос.

[volvo]

Хотя, можно сделать проще:

type
  TMain=object
  private
    m, g:single;

  public
    constructor Init(mass: single);
    function F: single;
  end;


  TSecond = object(TMain)
  public
    constructor Init(mass: single);
  end;

constructor TMain.init(mass: single);
begin
  m := mass; g := 9.8;
end;
function TMain.F: single;
begin
  result := m * g;
end;

constructor TSecond.init(mass: single);
begin
  inherited init(mass);
end;


var
  _one: TMain;
  _two: TSecond;

begin
  _one.init(14);
  _two.init(25);
  writeln(_one.F():10:4);
  writeln(_two.F():10:4);
end.

Прогони и посмотри, ЧТО считается ...