type ItemPtr = ^Item; SomeOtherType = record a,b,c:integer; end; Item = record Data:string; Next:ItemPtr; end;