is연산자는 쓸 수 없습니다.
트리뷰 노드의 Data에 들어가는 레코드형에 레벨에 따라 동적으로 자료가 바뀌도록 형을 만들어서 사용하시는것이 좋을것 같네요...
아래와 같이 하시면 형변환이 거의 필요가 없어집니다.
레코드형대신에 객체를 만들어서 넣으시면 is연산자를 쓸 수 있지만... 좀 무겁죠...


type
// Level 0 데이터
PDataLevel0= ^TDataLevel0
TDataLevel0 = record
Field0: Integer;
end;

// Level 1 데이터
PDataLevel1 = ^TDataLevel1;
TDataLevel1 = record
Field1: Word;
end;

// Level 2 데이터
PDataLevel2 = ^TDataLevel2;
TDataLevel2 = record
Field2: Byte;
end;

// 노드에 실제 들어가는 레코드형
PNodeData = ^TNodeData;
TNodeData = record
case Level: Integer of
0: (Data0: TDataLevel0); // 정적인 TDataLevel0대신에 포인터인 PDataLevel0을 사용해도 됩니다.
1: (Data1: TDataLevel1); // 다만 포인터 관리만 잘 하시면...
2: (Data2: TDataLevel2);
end;


트리뷰의 노드에는 PNodeData를 넣으시고 노드에 있는 데이터의 식별은 PNodeData의 Level이란 필드로 검사하시면 쉽게 하실 수 있습니다.


begin
NodeData := PNodeData(TreeNode.Data);

case NodeData.Level of
0: NodeData.Field0 := 10; // Level 0일 때 처리
1: ...; // Level 1일 때 처리
2: ...; // Level 2일 때 처리
end;

혹은

if NodeData.Level = 0 then
... // Level 0일 때 처리
else if NodeData.Level = 1 then
... // Level 2일 때 처리
else if NodeData.Level = 2 then
...; // Level 2일 때 처리
end;

용일님 정말 감사합니다.