Especificamente, existe uma maneira de uma tarefa obter uma referência a si mesma?

Por exemplo:

task type someTask; 
type someTaskAccessor is access someTask;

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