showmessage interactif

Oui, mais il faut utiliser MessageDlg.
L'aide te donnera l'ordre des paramètres à passer.
MessageDlg('Aucun canal sélectionné',mtWarning, [mbOK], 0);

If MessageDlg('Bienvenue dans mon application Pascal Objet. Quitter?',
    mtConfirmation, [mbYes, mbNo], 0) = mrYes then
     
MessageDlg('Fin de l''application Pascal Objet.', mtInformation,
      [mbOk], 0);