Как взаимно использовать модули? Опции

[(:Irisha]

Приветик! Не подскажете, как можно сделать, чтоб модули друг друга использовали? Они категорически отказываются!) Как вообще можно использовать эту возможность - чтоб uses было после implementation и все работало?) он выдает такие разнообразные ошибки компилляции..
И еще..Вот, допустим, в одном модуле описан объект, в другом - его потомок, у который часть методов переопределил. Как можно из него воспользоваться одноименным родительским методом? а еще желательнее - из родителя - методом потомка..
Наверно - вообще низзя?

[volvo]

ситуация примерно такая же, как с функциями с параметрами по умолчанию - можно писать, можно не писать...?

Если НЕ писать, то вызовется одноименный метод предка... Не забывай, ты можешь сделать и так:

type
  ta = object
    procedure a;
    procedure b;
  end;

  tb = object(ta)
    procedure a;
  end;

procedure ta.a;
begin
  writeln('a.a');
end;
procedure ta.b;
begin
  writeln('a.b');
end;

procedure tb.a;
begin
  inherited b;
  inherited;
  writeln('b.a');
end;

var X: tb;
begin
  X.a;
end.