function GetColorByDiff(ADifference: Integer): TColor;
begin
  Result := clBlue;
  case ADifference of
    0: Result := clGreen;
    1..3: Result := clYellow;
    4..8: Result := clRed;
  end;
end;