小问题，为什么也会出错啊，我是菜鸟？

Question

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
 begin
  if MessageDlg('Welcome to my Delphi application.  Exit now?',
 mtConfirmation, [mbYes, mbNo], 0, mbYes) = mrYes;
 then
 begin
    MessageDlg('Exiting the Delphi application.', mtInformation,
      [mbOk], 0, mbOk);
    Close;
  end;
end;end.

Answer 1

MessageDlg('Welcome to my Delphi application.  Exit now?',
 mtConfirmation, [mbYes, mbNo], 0，mbok)=mryes ；<-要这个“；“干什么

Answer 2

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
 begin
  if MessageDlg('Welcome to my Delphi application.  Exit now?',
 mtConfirmation, [mbYes, mbNo], 0, mbYes) = mrYes//多了分号;
 then
 begin
    MessageDlg('Exiting the Delphi application.', mtInformation,
      [mbOk], 0, mbOk);
    Close;
  end;
end;end.

Answer 3

procedure TForm1.BitBtn1Click(Sender: TObject);
 begin
  if MessageDlg('Welcome to my Delphi application.  Exit now?',
 mtConfirmation, [mbYes, mbNo], 0) = mrYes
 then
 begin
    MessageDlg('Exiting the Delphi application.', mtInformation,
      [mbOk], 0);
    Close;
  end;
end;

Answer 4

begin 这个没有end
   begin
       begin        end;
   end;