So sieht aktuell mein code aus:
Delphi-Quellcode:
query1.open('select * from artikel');
query1.First;
while not query1.Eof do
begin
if query1.FieldByName('preis').Value < query1.FieldByName('minimum').Value then
DBChart1.Series[1].Color:=clred;
else
DBChart1.Series[1].Color:=clblue;