Вариант написанный на коленке
Код:
If strtofloat(Label1.caption)<0 then
begin
Label2.caption:='плохо';
Label2.color:=clred;
end
else
if (strtofloat(Label1.caption)>5)and(strtofloat(Label1.caption)<=10) then
begin
Label2.caption:='хорошо';
Label2.color:=clFuchsia;
end
else
begin
Label2.caption:='удовлетворительно';
Label2.color:=clYellow;
end;
Админ: Пользуемся тегами при оформлении кода!