[Nyctos Kasignete]

Хм. Обычно, вроде, так и делают:

Код:

var:
  P: Pointer;
  I: Integer;
..........

  I := Integer(P);