Enumeration not working

[gdirikgil]

Enumerations not work properly. Problem is in following block in Quick.DAO.Query Else code block remarked and enumeration field does not get value.

tkEnumeration :
begin
if (aValue.TypeInfo = System.TypeInfo(Boolean)) then
begin
if CompareText(string(aValue.AsVariant),'true') = 0 then Result := '1'
else Result := '0';
end
else
begin
//value := value;
// This can solve the problem
result:=aValue.AsOrdinal.ToString;
end;
end;