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