Source position: locale.pas line 280
procedure FormatDate(
locale: pLocale;
fmtTemplate: PAnsiChar;
date: pDateStamp;
putCharFunc: pHook
);