ShowMessage(Format('Pointer=%p', [p]);