Abfrage: Wenn ein Datum in der Zukunft liegt

[JSB]

Auf neues Problem gestoßen:

Delphi-Quellcode:

if ddatum.Date > TDate(Now) then
  begin
if MessageDlg('Achtung! Das Ausgewählte Datum liegt noch in der Zukunft. '+#13+#10+'Bitte wählen Sie Ja um das Datum trotzdem zu übernähmen '+#13+#10+'oder Nein um das Datum zu ändern und dann erst die '+#13+#10+'Buchungdurchzuführen.', mtWarning, [mbYes,mbNo], 0) = mrNo then
        dDatum.SetFocus;
  end else
begin XXXXXXX end;

Die Messagebox kommt zwar aber wenn ich Ja sage passiert nicht das was zwischen dem letzten begin und end; steht (hier also: XXXXXX). Was mache ich falsch??