[M.A.D.M.A.N.]

NumLock же тебе написал:

Сообщение от NumLock

1. clGreen = TColor($008000);
2. ColorToString(clGreen) = "clGreen"
3. ColorToString($00008200) = $00008200

Значит у тебя нифига не clGreen.

Показывай свой код, или ждём телепатов.