[[AzidRain]]

Por cierto que tambien se pueden asigar comparaciones a un booleano:

Código Delphi [-]
  var Mayorquecero:Boolean;
     i:integer;

Begin
  I:=5;
  MayorqueCero := ( i > 0)

 If MayorqueCero Then ShowMessage('si es mayor que cero');

end;