TFarSetColors = packed record Flags: DWORD; StartIndex: integer; ColorCount: integer; Colors: PChar; end; PFarSetColors = ^TFarSetColors;