Auslesen ob Integer Positiv oder Negativ ist

[hoika]

Hallo,

Delphi-Quellcode:

var
  i: Integer;
begin
  i:= -1;

  if<0 then
  begin
    ; kleiner -> rot
  end
  else
  begin
    ; >=0  -> grün
  end;

oder denke ich jetzt zu einfach ?

Wobei 0 nicht grün ist