Typcasting: TVarData -> TCustomVariantType

[scream]

Hallo erstmal.
Ich bin relativer Neueinsteiger in Delphi und erstelle mir gerade eine Klasse namens TFrac. Diese Klasse ist einfach ein Bruch (ja, des Teil aus'm Mathematikunterricht, genau ). Jetzt möchte ich "comparison operators", zu Deutsch, Vergleichsoperationen einbinden, werde aus der Dokumentation aber nicht recht schlau. Ich habe nun die Funktion TCustomVariantType.compare eingebunden, aber ich krieg das nicht ganz hin:
Ich habe in meiner Klasse TFrac eine Funktion namens toFloat, die den Bruch in eine Gleitkommazahl umwandelt. Jetzt möchte ich in der Procedure "Compare( const Left, Right: TVarData; var Relationship: TVarCompareResult )" einfach "Left" und "Right" als TFrac behandeln und dann halt Left.toFloat und right.toFloat verlgeichen. Aber wie mache ich das? Wie behandle ich ein TVarData als meine eigene Klasse TFrac?

Hier ist mein Code. Die Funktionen expand, add, subtract, multiply, divide und cancelDown (deutsch: kürzen) habe ich der Übersicht halber ausgelassen :

Delphi-Quellcode:

type TVarCompareResult = (crLessThan, crEqual, crGreaterThan);
 
type
  TFrac = class(TCustomVariantType)
    zaehler: Integer;
    nenner: Integer;
    VarType: TVarType;

    //Verschiedene Prozeduren und Funktionen
    constructor create( tempZaehler: Integer; tempNenner: Integer );
    procedure Compare( const Left, Right: TVarData; var Relationship: TVarCompareResult );
    function toFloat: real;
    function expand( a: Integer ): TFrac;
    function add( a: TFrac ): TFrac;
    function subtract( a: TFrac ): TFrac;
    function multiply( a: TFrac ): TFrac;
    function divide( a: TFrac ): TFrac;
    function cancelDown(): TFrac;
end;

implementation

constructor TFrac.create( tempZaehler: integer; tempNenner: integer );
begin
    zaehler := tempZaehler;
    nenner := tempNenner;
    VarType := $0666;
end;

procedure TFrac.Compare( const Left, Right: TVarData; var Relationship: TVarCompareResult );
begin
    if ( Left.VType = VarType ) and ( Right.VType = VarType ) then
    begin
        if TFrac(Left).toFloat = Right.toFloat() then
            Relationship := crEqual
        else if Left.toFloat() < Right.toFloat() then
            Result := crLessThan
        else if Left.toFloat() > Right.toFloat() then
            Result := crGreaterThan;
    end;
end;

function TFrac.toFloat: real;
begin
    toFloat := zaehler / nenner;
end;