anchor.diff:      FBars.Add(tmp);
   
       tmp := TmGanttBarDatum.Create;
  -    tmp.StartTime:= EncodeDate(2018, 1, (i * 2) + 1);
  +    tmp.StartTime:= EncodeDate(2018, 1, 1 + (i * 2));
       tmp.EndTime:= tmp.StartTime + Random(100) / 10;
       tmp.Color:= clYellow;
       FBars.Add(tmp);
  
positive.code: begin
    inherited;
    FBars := TObjectList.Create(true);
    for i := 0 to 23 do
    begin
      tmp := TmGanttBarDatum.Create;
      tmp.StartTime:= EncodeDate(2018, 1, i + 1);
  
negative.code:   curBar := FBars.Items[aRowIndex] as TmGanttBarDatum;
    if Intersect(curBar.StartTime, curBar.EndTime, aStartDate, aEndDate) then
      aGanttBars.Add(curBar);
  (*  curBar := FBars.Items[aRowIndex * 2 - 1] as TmGanttBarDatum;
    if Intersect(curBar.StartTime, curBar.EndTime, aStartDate, aEndDate) then
      aGanttBars.Add(curBar);*)
  end;
  
  { TForm1 }
  