Saber Número negativo y pasarlo a positivo

[BuRtOn]

Saludos amigos, lo que necesito saber es como hago para saber si una variable de tipo integer es negativa y pasarla a positivo ?, es algo asi lo que trato de plantear:

Código Delphi [-]
var a: Integer;
if -a = True Then //Es negativa procedo.
begin
( -a ) * (-) = +a; // multiplico -a * - para que me de la variable a positiva
end;

por favor espero que me puedan colaborar, gracias.