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