Hat sich erledigt!
Ich musste nur den Pen zurücksetzen
Delphi-Quellcode:
for i:=0 to Zeiten.ListBox1.Items.Count-1 do
begin
canvas.LineTo(x,500+(-1*(strtoint(Zeiten.ListBox1.Items.Strings[i]))));
canvas.TextOut(x,490-(strtoint(Zeiten.ListBox1.Items.Strings[i])),inttostr(500-canvas.PenPos.Y));
canvas.MoveTo(x,500+(-1*(strtoint(Zeiten.ListBox1.Items.Strings[i]))));
x:=x+100;
end;
Danke trotzdem
MfG