application.Messagebox Problem

[DateTimeError]

Hier was zum Testen:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if MessageBox(Handle, 'Message', 'Caption', mb_YesNo or mb_IconExclamation or
    mb_DefButton1)
    = id_Yes then
  begin
    MessageBox(Handle, 'JA angeklickt', 'Caption', mb_Ok or mb_DefButton1);
    exit
  end;
  MessageBox(Handle, 'NEIN angeklickt', 'Caption', mb_Ok or mb_DefButton1)
end;