type
  tsplitextended = record
    case byte of
      0: (a: array[0..9] of byte);
      { the following "a" should give a duplicate identifier errorÊ}
      1: (a: array[0..4] of word);
      2: (a: array[0..1] of cardinal; w: word);
    end;

begin
end.