TVuirtualStringTreeView의 확장형인 TVirtualPropertyTree를 쓸려고 하는데요

with VirtualPropertyTree1 do
     begin
          SetLength( Fields, 4 );
          with Fields[0] do
          begin
               Name := 'Rating';
               Category := 'Appearance';
               new( PInteger(Data) );
               DataType := dtCombo;

               PInteger(Data)^ := 0;

               SetLength( ComboData, 4 );
               ComboData[0] := '1';
               ComboData[1] := '2';
               ComboData[2] := '3';
               ComboData[3] := '4';
          end;

예제 소스에 있는 저 부분을 파스칼로 변환하다가

PInterget(Data)^ :=0; <- 이 부분에서 막혀서 몇시간 동안 헤매다가..

여기다 질문 올립니다 ^^

    vrtlprprtytr1->Fields.set_length(1);
    vrtlprprtytr1->Fields[0].Name = "Test";
    vrtlprprtytr1->Fields[0].Data = 100; <- 이부분 소스가 잘못 되었다고 하는데요
    vrtlprprtytr1->RefreshFields();

제가 원래부터 파스칼은 학교에서만 배우고~ 델파이를 전문적으로 공부를 한게 아니라서

파스칼 문법에서 막히네요^^

저 부분만 좀 도와주세요^^