Source position: systemh.inc line 1472
procedure SetTextAutoFlush(
var T: Text;
AutoFlush: Boolean
);