function TObject.GetHashCode: Integer;
begin
  Result := Integer(Self);
end;

이름으로 봐서 뭔가 거창한 해쉬 알고리즘을 동원할 줄 았았다. 그런데 그냥 포인터다. 멋지군.[