[fpc-pascal] Implicit conversion problem with TDate type

[Gabor Boros]

Hi All,

I use MWA's IBX for Firebird connection and have problem with date 
parameters. Tony provided to me a test program a suggested write to the 
FPC list. The simple test program is:

program Project1;

uses Variants, Sysutils;

var V: variant;
     D: TDate;

begin
   D := EncodeDate(2016,10,20);
   V := D;
   writeln('date is ',VarType(D));
end.

The result is: "date is 5" (varDouble)

If modify D: TDate; to D: TDateTime; the result is "date is 7" (varDate)

I (We) missed something or is this a bug?

Gabor