Bonjour,

tu affectes ce code à chaque OnChange de chaque ComboBox :


procedure TForm2.CB_PlanChange(Sender: TObject);
Var
Texte : String ;
begin
Texte := CB_Plan.Text[1] + '.' +...