ActiveX retour de fonction erroné S_OK et non S_FALSE

Bonjour,
J'ai fait un petit programme pour expliquer mon souci.
J'ai un serveur COM avec une fonction Reset venant de IEnumVariant. Pour des raisons de test d'un programme bien trop gros pour être ici, la fonction renvoie la valeur S_FALSE.
Dans mon petit programme client, quand j'appelle la fonction Reset j'ai systématiquement la valeur S_OK qui revient!!! ??????
Je ne comprends absolument pas comment c'est possible que le résultat de la fonction soit changée.
En attaché le serveur (Server.zip) et le programme de test (TestTest.zip).
Merci de vos idées.

Dans ma recherche de l'erreur de retour S_OK au lieu de S_FALSE (voir post précédent), j'ai fait un tout petit serveur avec juste une méthode qui renvoie S_FALSE (type HResult), malheureusement cela plante au niveau client avec une erreur: Le projet TestTest.exe a déclenché la classe d'exception EOleSysError avec le message 'Type de variable incorrect' (c'est l'instruction Return:=coll.Method qui déclenche ça).
Des idées??

Voici le .ridl
Pièce jointe 186751

le code dans le serveur:

Code:

---

1 2 3 4

function TTest1.Method: HResult; begin Result:=S_FALSE; end;

---

et le code dans le client:

Code:

---

1 2 3 4 5 6 7 8 9 10

procedure TForm1.Button1Click(Sender: TObject); var coll:variant; Return:HResult; begin coll:= CreateOLEObject('Project.Test1'); Return:=coll.Method; if Return=S_FALSE then showmessage('OK') else showmessage('ERROR!!!!!!!!!!!!!!!!'); end;

---

var coll: OleVariant; ??

J'ai essayé aussi c'est pareil. Merci quand même.