Delphi - un programa que calcule si es positivo o negativo

necesito la programacion de que si un numero es positivo o negatico como lo hago porfa estoy en examen ahora...
ayuda!!!!

Una forma de hacerlo es con un condicional preguntado si es mayor o menor que cero

Como teexplica José Luis.

var
iNumero := 98

if iNumero > 0 then
ShowMessage(IntToStr(iNumero) + ' es positivo')
else if Numero < 0 then
ShowMessage(IntToStr(iNumero) + ' es negativo')
else
ShowMessage('Numero 0');