Gibt es eine Möglichkeit für eine Aufgabe, einen Verweis auf sich selbst zu erhalten?

Zum Beispiel:

task type someTask; 
type someTaskAccessor is access someTask;

task body someTask is
    pointerToTask : someTaskAccessor;
begin
    pointerToTask = this;
end someTask;