TSerieslist malt "falsch"

[LoL]

Data is in diesem fall eine Stringliste

Delphi-Quellcode:

for i := 0 to Data.Count - 1 do
begin
  i_temp := //temp auslesen
  i_time := //Zeit auslesen
  i_gesamt := i_gesamt + i_time;

  if i_gesamt < FDrawBegin then//Wenn Gesamtzeit unter der angegebenen Startzeit
    cl_selection := clblue;//bzw clnone

  case {Schrittart} of
  0 : if Data[i-1][1] = {Teilprozessanfang} then
        AddXY(i_gesamt,i_temp,'',clnone);
  5 : AddXY(i_gesamt-i_time,0,'',cl_selection);//Ablassen(TeilprozessEnde)
  end;
  if {Nicht TeilprozessEnde} then
    AddXY(i_gesamt,i_temp,'',cl_selection);

  if i_gesamt > FDrawEnd then//Nach EndZeit abbrechen
    break;
end;