procedure test; begin if confirm_dlg('Sind Sie ein begeisterter DokuWIKI leser?') = mrYes then begin message_dlg('Das ist aber fein!'); end; end;