Probleme avec Overload

Salut, tout le monde,
je veux faire une fonction qui peut avoir de type de sortie différent.

Code:

---

1 2 3

function Traitement(A,B:double):string; overload; function Traitement(A,B:double):double; overload;

---

Si je fais ça le compilateur me met une erreur , chose qui peut sembler normale car il y a marquer dans l'aide :

Citation:

---

Les routines redéfinies doivent être redéclarées avec la directive overload et doivent utiliser une liste de paramètres différente

---

Alors comment puis je faire pour contourner mon probleme ?

Code:

---

1 2	procedure Traitement(A,B:double; out Resultat: string) overload; procedure Traitement(A,B:double; out Resultat: double) overload;

---

:)