procedure TForm1.Button1Click(Sender: TObject); var ListeDesCas : TStringList; begin ListeDesCas := TStringList.create; try , ListeDesCas.Add ('très facile'); ListeDesCas.Add ('facile'); ListeDesCas.Add ('moyen'); ListeDesCas.Add ('difficile'); ListeDesCas.Add ('très difficile'); Case ListeDesCas.IndexOf(Edit1.Text) of 0: begin // traitement 'très facile' end; 1: begin // traitement 'facile' end; 2: begin // traitement 'moyen' end; 3: begin // traitement 'difficile' end 4: begin // traitement 'très difficile'' end; end; finally ListeDesCas.Free; end; end;