[NumLock]

Код:

var
  c0, c1: TColor;
begin
  c0:=$EECD7D;
  c1:=RGB(255-GetRValue(c0), 255-GetGValue(c0), 255-GetBValue(c0));
end;