procedure TForm1.Button1Click(Sender: TObject); begin case RadioGroup1.ItemIndex of 0 : messageDLG('cas 1',mtinformation,[mbOk],0); 1 : messageDLG('cas 1',mtinformation,[mbOk],0); 2 : messageDLG('cas 1',mtinformation,[mbOk],0); else messageDLG('aucun',mtinformation,[mbOk],0); end; end;