Конструкция с указателями

[Анафема]

Есть код на Си:

Код: Выделить всё

void *ptr;
ptr = *(void **)ptr;

Что значит этот код и как его изобразить в Паскале.
Очень сильно друг просил решить сию задачу, помогите плиз.

[Sergei I. Gorelkin]

Код: Выделить всё

type
  PPointer=^Pointer;
var
  ptr: Pointer;
begin
  ptr := PPointer(ptr)^;
end;

[Анафема]

Sergei I. Gorelkin
Большое спасибо.