MsgBox Yes No

program AresProject;

uses SysUtils, Classes, Forms, Dialogs, dlDatabase, db, Controls, StdCtrls, Graphics, dlcomponents; 

begin
if Dialogs.MessageDlg('Welcome to my Delphi application.  Exit now?', mtConfirmation, [mbYes, mbNo], 0, mbYes) = mrYes then
  begin
    showmessage('');
  end;
end.