[flexValue] better dispatch type conversion

Quick.Value.pas

@@ -1,13 +1,13 @@
 { ***************************************************************************
 
-  Copyright (c) 2016-2019 Kike Pérez
+  Copyright (c) 2016-2020 Kike Pérez
 
   Unit        : Quick.Value
   Description : Autofree value record
   Author      : Kike Pérez
   Version     : 1.5
   Created     : 07/01/2019
-  Modified    : 27/08/2019
+  Modified    : 20/04/2020
 
   This file is part of QuickLib: https://github.com/exilon/QuickLib
 
@@ -1058,6 +1058,11 @@ begin
 end;
 
 procedure TFlexValue.SetAsVariant(const Value: Variant);
+var
+  dispatch : IDispatch;
+  i : Int64;
+  b : Boolean;
+  f : Extended;
 begin
   Clear;
   case VarType(Value) and varTypeMask of
@@ -1076,9 +1081,9 @@ begin
     varDate      : SetAsDateTime(Value);
     varOleStr    : SetAsString(Value);
     varDispatch  : begin
-                     if TryVarAsType(Value,varInt64) then SetAsInt64(Value)
-                     else if TryVarAsType(Value,varDouble) then SetAsExtended(Value)
-                     else if TryVarAsType(Value,varBoolean) then SetAsBoolean(Value)
+                     if TryStrToInt64(Value,i) then SetAsInt64(i)
+                     else if TryStrToFloat(Value,f) then SetAsExtended(f)
+                     else if TryStrToBool(Value,b) then SetAsBoolean(b)
                      else if TryVarAsType(Value,varString) then SetAsString(Value)
                      else
                      begin