[BLACKFIRE69]

i've added two new functions to retrieve the build date of the FMXInno library. i hope they'll be helpful in some cases.

function wGetFMXInnoBuildDate: Integer;
procedure wGetFMXInnoBuildDateEx(var YearW, MonthW, DayW: Word);

1. Method - 01

function FMXInnoBuildDate_1: String;
var
  YearW, MonthW, DayW: Word;
begin
  wGetFMXInnoBuildDateEx(YearW, MonthW, DayW);

  Result := Format('Build Date:  %d-%d-%d', [YearW, MonthW, DayW]);
end;

2. Method - 02

function FMXInnoBuildDate_2: String;
var
  YearW, MonthW, DayW: Word;
  EncodedDate: Integer;
begin
  EncodedDate := wGetFMXInnoBuildDate;

  YearW   :=  EncodedDate shr 9;
  MonthW  := (EncodedDate shr 5) and $0F;
  DayW    :=  EncodedDate and $1F;

  Result := Format('Build Date:  %d-%d-%d', [YearW, MonthW, DayW]);
end;

.