CreateFont

function CreateFont(

  Height: Integer;

  Width: Integer;

  Escapement: Integer;

  Orientation: Integer;

  Weight: Integer;

  Italic: Byte;

  Underline: Byte;

  StrikeOut: Byte;

  CharSet: Byte;

  OutputPrecision: Byte;

  ClipPrecision: Byte;

  Quality: Byte;

  PitchAndFamily: Byte;

  FaceName: PChar

):HFONT;