Il me faudrait pour corriger la fin de "Pas" le code qui permettrait de faire un "choix" comme dans la version 4x

  on ... do
  var
    Selected: Integer;
  begin
    Selected := Player.ShowSelectionMsg(
      'Choisis une réponse',
      ['Oui', 'Non']
      );

    if Selected = 0 then
    begin
      // il a répondu Oui
    end else
    begin
      // Il a répondu Non
    end;
  end;

Tu peux bien sûr proposer d'autres réponses possibles, et autant que tu veux. La première donnera Selected = 0, la seconde Selected = 1, etc.