произойдет ошибка

AFirstCbj := TFirstObj.Create; | Methodl; {недопустимо -

AFirstObj.Methodl;(допустимо)|

                          | произойдет ошибка компиляции}

AFirstObj.Method2; {допустимо}| Method2; {допустимо}

AFirstObj.MethodS; {допустимо}| Methods,- {допустимо}

AFirstObj.Free;               | end;

end;

                              | procedure TestProc2;

procedure TFirstObj.Methodl;  | begin

begin                  |AFirstObj:=TFirstObj.Create;

ShowMessage('1');      |AFirstObj.Methodl;{недопустимо}

end;                   |AFirstObj.Method2;{недопустимо}

procedure TFirstObj.Method2;       

                      |AFirstObj.Method3;{допустимо}

begin                 |AFirstObj.Free;

ShowMessage('2');

Methodl;              |ASecondCbj:= TSecondObj.Create;

end;                  |ASecondObj.Methodl;{недопустимо}

procedureTFirstObj.Method3;

|ASecondObj.Method2;{допустимо}

begin                   |ASecondObj.MethodS;{допустимо}

ShowMessage('3');       |ASecondObj.Free;

Содержание  Назад  Вперед

---

---

---

---