#1355. Получаем AV при создании интерфейсов

type
 ISomeInterface = interface
  function Ptr: Pointer;
 end;//ISomeInterface 

 TSomeInterface = class(TInterfacedObject, ISomeInterface)
  f_Ptr: Pointer;
  function Ptr: Pointer;
  constructor Create(aPtr: Pointer; aSize: Integer);
  destructor Destroy; override;
 end;//TSomeInterface 

  function TSomeInterface.Ptr: Pointer;
  begin
   Result := f_Ptr;
  end;

  constructor TSomeInterface.Create(aPtr: Pointer; aSize: Integer);
  begin
   inherited Create;
   GetMem(f_Ptr, aSize);
   Move(f_Ptr^, aPtr^, aSize);
  end;

  destructor TSomeInterface.Destroy;
  begin
   FreeMem(f_Ptr);
   f_Ptr := nil;
   inherited;
  end;

const
 C : array [0..2] of Char = 'ABC';

var
 A : ISomeInterface;
 P : Pointer;

A := TSomeInterface.Create(@C, SizeOf(C));
P := A.Ptr;
A := TSomeInterface.Create(@C, SizeOf(C));
A := TSomeInterface.Create(P, SizeOf(C)); // - AV !!! Потому, что предыдущий A уже освобождён