Problemer med TChart

Jeg bruger følgende kode til at lave hver bar:

  while not q.Eof do
  begin
  dato :=  q.FieldByName(\'dato\').AsDateTime;
  navn :=  q.FieldByName(\'navn\').AsString;
  starttid :=  q.FieldByName(\'starttid\').AsDateTime;
  sluttid :=  q.FieldByName(\'sluttid\').AsDateTime;
  forskel :=  sluttid - starttid;
  farve :=  q.FieldByName(\'farve\').AsString;

  Series1.Addxy(starttid, forskel, datetostr(dato), farve);
  q.Next;