DrawShadowText

procedure DrawShadowText(

  const Canvas: TCanvas;

  const Text: string;

  ARect: TRect;

  const Flags: Cardinal;

  const NormalColor: TColor;

  const ShadowColor: TColor;

  ShadowShiftX: ShortInt = 1;

  ShadowShiftY: ShortInt = 1

);