Agregando, también suele ser muy útil usar el tipo
Boolean en los constant arrays para alternar valores de acuerdo a una condición:
Código Delphi
[-]
const
CCOLOR : array[Boolean] of TColor = (clRed, clLime);
begin
Edit1.Color := CCOLOR[Edit1.Text > ''];
...
Saludos