TSetTextEx = record
  flags: dword;
  codepage: uint;
  end;

TntComCtrls

This is record TntComCtrls.TSetTextEx.