在typInfo單元中有定義形態類型如下
TTypeKind = (tkUnknown, tkInteger, tkChar, tkEnumeration, tkFloat,
    tkString, tkSet, tkClass, tkMethod, tkWChar, tkLString, tkWString,
    tkVariant, tkArray, tkRecord, tkInterface, tkInt64, tkDynArray);
例如Caption屬性可以用下面的方法取得其資料形態：
uses typInfo;    procedure TForm1.Button1Click(Sender: TObject);
var
  ATypeKind: TTypeKind;
  S: string;
begin
  ATypeKind := PropType(Self, 'Caption');
  S := GetEnumName(TypeInfo(TTypeKind), Ord(ATypeKind));//set to string
  ShowMessage(S);
  case ATypeKind of
    tkString, tkLString, tkWString: ShowMessage('String type');
  end;
end;