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