test.pas

procedure TFormExaSpirometrie.ColorInPanels();
var
  key: string;
  currentPanel: TPanel;
  i: integer;
begin
  for Key in mapPanelTests.Keys do begin
    i := 1;
    for currentPanel in mapPanelTests.Items[Key] do begin
      currentPanel.Font.Color := ConfGlobale.Couleur.Spiro[ModePrePost(Examen.GroupeSpiro.Numero)][i];
      i := i + 1;
    end;
  end;
end;