codice:
procedure TRes.Val4Change(Sender: TObject);
begin
// Determina il colore associato
case Val4.itemindex of
  0: F4.Color := clGreen; //0,1
  1: F4.Color := clGreen; //0,25
  2: F4.Color := clGreen; //0,5
  3: F4.Color := clMaroon; //1
  4: F4.Color := clRed; //2
  5: F4.Color := $0000D7FF; //5
  6: F4.Color := clSilver; //10
  7: F4.Color := clOlive; //20
end;
end;
adesso mi piace grazie del vostro aiuto.