Legend i tchart

Jeg bruger følgende kode til at overføre data fra en access database til TChart:

DmDok.DtsHardCopies.First;
while not DmDok.DtsHardCopies.EOF do
begin
  iVaerdi := DmDok.DtsHardCopies.FieldByName('TIF').AsInteger;
  szNavn  := DateToStr(DmDok.DtsHardCopies.FieldByName('Dato').AsDatetime);
  Chart1.Series[0].Add(iVaerdi, szNavn, clLime);
  DmDok.DtsHardCopies.Next;
end;

og der virker også godt nok.

MEN farverne i legend i TChart 'følger' ikke med.

Hvordan kan jeg angive de samme farver i legend i koden?