Source position: compproc.inc line 186
procedure fpc_write_text_variant(
Len: LongInt;
var f: Text;
const v: variant
);