Ich denke das Sign vielleicht helfen könnte,
obwohl ich auch denke das es mit -1 < 0 > +1 funktionieren sollte.
Delphi-Quellcode:
Uses
System.Math
;
procedure Test;
var
LSign: Integer;
begin
LSign := Sign( Round(-100.01) ); // -1
LSign := Sign( Round( 0.01) ); // 0
LSign := Sign( Round(+100.01) ); // +1
end;