[Страдалецъ]

Есть подозрение, что вам нужно несколько другое:

Код:

  TMyCalss = class
   private
    Values: Array[1..2] of Variant;
    function GetValue(const Index: Integer): Variant;
    procedure SetValue(const Index: Integer; const Value: Variant);
   public
    property IntValue: Variant index 1 read GetValue write SetValue;
    property StrValue: Variant index 2 read GetValue write SetValue;
   end;
...
function TMyCalss.GetValue(const Index: Integer): Variant;
begin
 Result := Values[Index]
end;

procedure TMyCalss.SetValue(const Index: Integer; const Value: Variant);
begin
 Values[Index] := Value
end;