Source position: ibase40.pp line 73
type TISC_VARYING = record
strlen: Short;
str: array [0..0] of Char;
end;