Размещение объекта в памяти Опции

[Bokul]

Объект TObject занимает в памяти 8 байт - сума двух longint, т.е. места для методов не резервируется. Мне интересно, как и где в памяти размещаются методы объектов и куда я обращаюсь, вызывая метод по ссылке - po^.method?

type
    PTobject=^TObject;
    TObject=object
      i,i2:longint;
      procedure method;
    end;
procedure TObject.method;
begin
 i:=4;
end;
var mem:longint;
    po:PTobject;
    p:pointer;
    pi:^longint;
begin
mem:=memavail;
new(po);
po^.method;{!!!!!!!!!!!!!!!!!!сдесь}
p:=po;
pi:=p;
writeln(pi^);
writeln('Difference: ',mem-memavail);
readln;
end.

[volvo]

куда я обращаюсь, вызывая метод по ссылке

unit unit_1;
interface

procedure P;

implementation

procedure p; 
begin
  writeln('just a test...');
end;

end.

uses unit_1;
begin
  P; { <--- Куда ты здесь обращаешься? }
end.

+ вспомни, ЧЕМ объект с виртуальными методами отличается от объекта БЕЗ оных...