[lmikle]

Если тебе оттенки серого, то просто воспользуйся функцией RGB().
Теда надо передать 3 одинаковых значения от 0 до 255 (черный и белый на границах соответсвенно).

Код:

function SelectColor(Value : Extended) : TColor;
var
  b : byte;
begin
  b := Round(RoundTo(Value,-2) - Int(Value) / 255);
  Result := RGB(b,b,b);
end;