1:
2:
3:
4:
5:

While not dmzucht.zqkalender.eof do begin
  jvTimeLine1.Items.Add.Caption:= dmzucht.zqkalender.......asString;
  jvTimeLine1.Items.Add.Color:= clwhite;// (beim ersten), clyellow (beim zweiten).... dann beim 6. Datensatz wieder clyellow, usw.
dmzucht.zqkalender.next;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:

const
  MeineFarben: array[0..4] of TColor = (clWhite, clBlack, clBlue, clGreen, clYellow); // was du willst halt

var
  ColorIndex: Integer;
begin
  //.. Eintrag gefunden
  Irgendwas.Color := MeineFarben[ColorIndex];
  ColorIndex := (ColorIndex +1) mod 5; // nur 0..4 zulassen