Inkompatible Typen: 'TTest' und 'PTest'

[Bjoerk]

Versteh ich nicht. Kann mich bitte jemand aufklären? // ***

Delphi-Quellcode:

unit Unit2;

interface

uses
  Windows, Classes, SysUtils;

type
  PTest = ^TTest;
  TTest = record
    X, Y, Z: double;
  end;

  PTestArray = ^TTestArray;
  TTestArray = array[1..MaxInt div SizeOf(TTest)] of TTest;

  TTestList = class
  private
    FCount: integer;
    FItems: PTestArray;
    function Get(Index: Integer): TTest;
    procedure Put(Index: integer; const Value: TTest);
    procedure SetCount(const Value: integer);
  public
    property Count: Integer read FCount write SetCount;
    property Items[Index: Integer]: TTest read Get write Put;
  end;

implementation

{ TTestList }

function TTestList.Get(Index: Integer): TTest;
begin
  Result := FItems^[Index];
end;

procedure TTestList.Put(Index: integer; const Value: TTest);
var
  P: PTest;
begin
  New(P);
  P^.X := Value.X;
  P^.Y := Value.Y;
  FItems[Index] := P; // *** [DCC Fehler] Unit2.pas(45): E2010 Inkompatible Typen: 'TTest' und 'PTest'
end;

procedure TTestList.SetCount(const Value: integer);
begin

end;

end.