Case-Anweisung wird ignoriert

[ToFaceTeKilla]

Hallo zusammen!

Ich hab in meinem Programm folgende Case Anweisung:

Delphi-Quellcode:

case TypVergleich(aImpObj, aCurObj) of 
         1: //Anweisung1
         2: //Anweisung2
         3: //Anweisung3
         end;

TypVergleich ist eine Funktion die aImpObj übergeben bekommt und neben dem Result noch aCurObj zurückliefern soll (ich brauche das aCurObj weil ich da noch drauf zugreifen will in den Anweisungen1,2,3).
Nun bin ich mir nicht sicher ob das überhaupt so funktionert (mit case eine funktion aufrufen und gleichzeitig aufs result zugreifen), deshalb hab ich das ganze wie folgt umgeschrieben:

Delphi-Quellcode:

TypVerglRes:= TypVergleich(aImpObj,aCurObj);
case TypVerglRes of 
         1: //Anweisung1
         2: //Anweisung2
         3: //Anweisung3
         end;

TypVerglRes ist integer.

Bei beiden Varianten passiert allerdings nichts. Beim debuggen seh ich auch das auf TypVerglRes ein gültiger Wert steht, aber das CASE wird dann einfach übersprungen. Hab ich was falsch gemacht oder woran liegt das?

Danke schonmal im Voraus