Однонаправленный неоднородный (гетерогенный) список с однородными подсписками.

[Serge_Bliznykov]

извините!
скопировал пример из ТурбоПаскалеского хелпа. и совсем забыл, что Вам то нужно под Delphi!
А там слово class зарезервировано!!

пробуйте так:

 MyKindClass  = (Num, Dat, Str);
 UU = ^ZvenoVar;
 ZvenoVar = record
   Next: UU;
   case Kind: MyKindClass of
     Num: (N: real);
     Dat: (D: Integer);
     Str: (S: string[200]);
 end;

NB. string[200] - написано от фонаря - можно любое число от 1 до 255. Досовский Pascal "кушал" и без указания длины, а ObjectPascal - требует указать "сколько точно выделять памяти в байтах"...

[Chudo4258]

Опять ошибка тут:

MyKindClass  = (Num, Dat, Str);
 UU = ^ZvenoVar;
 ZvenoVar = record
   Next: UU;
   case Kind: MyKindClass of
     Num: (N: real);
     Dat: (D: Integer);
     Str: (S: string[200]);
 end;

[Error] Project1.dpr(7): Declaration expected but identifier 'MyKindClass' found

[Serge_Bliznykov]

не, ну это уже не серьёзно... :-(
А ключевое слово Type дописать в начале сложно?! Это же ТИПЫ данных описываются!!

type
 MyKindClass  = (Num, Dat, Str);
 UU = ^ZvenoVar;
 ZvenoVar = record
   Next: UU;
   case Kind: MyKindClass of
     Num: (N: real);
     Dat: (D: Integer);
     Str: (S: string[200]);
 end;