TNamedVariantItem = record
  FString: string;
  FVariant: Variant;
end;

struct TNamedVariantItem {
  AnsiString FString;
  Variant FVariant;
};