2.07 How to prompt MessageDlg function?

begin

if MessageDlg('Are you sure?', mtConfirmation, (mbYes + mbNo), 0) = mrYes then

MessageDlg('Yes Click', mtInformation, mbOK,0) else

MessageDlg('No Click', mtInformation, mbOK,0);

end;