DELPHI里怎么实现对象指针指向自己

DELPHI里如何实现对象指针指向自己
类的过程如何实现指向对象的指针指向自己，也就是c++里的this
var
  basicQ : array of basic;
  order : integer;

type basic = class(TObject)
public
  procedure log;
end;

procedure basic.log;
begin
  basicQ[order] := this?/?这里如何表达指向自己？
end;

[解决办法]
self