прошу прощения, что не поблагодарил сразу, кое что поправил, работает, но не думаю, что код стал менее кривым) СПАСИБО!
хотя кроме благодарности есть небольшой вопрос, вот этот код крутится в цикле и выводит в столбец несколько цифр
Код:
if Qh>Qo then begin
Label7.Caption:=Label7.Caption+#10+'!'+FloatToStrF(Qh, ffFixed,5,3)+' '+'при K='+FloatToStr(k[i]);
Label7.Font.Color := clRed;
end else begin
Label7.Caption:=Label7.Caption+#10+FloatToStrF(Qh, ffFixed,5,3);
Label7.Font.Color := clGreen;
end;
я наивно полагал, что они будут менять цвет по одной, но весь столбец принимает цвет в зависимости от последнего числа, можно ли это как то поправить?