Function für Vorzeichen?

[Cöster]

@ 3_of_8:
Kann es sein, dass es sign auf delphi 5 noch nicht gibt?

@ Luckie:
Ich brauch nicht ne Funktion, die mir sagt, ob die Zahl positiv ist, sondern eine, die mir das Vorzeichen zurückliefert (also 1 oder -1). Sonst könnte ich ja auch ne If-Abfrage machen.