Específicamente, ¿hay una manera para que una tarea obtenga una referencia a sí misma?

Por ejemplo:

task type someTask; 
type someTaskAccessor is access someTask;

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