Program AutoClose;
// Příklad možného makra AutoClose, které takto nahradí
// standardní hlášku o neuloženém dokumentu.

var
  S : string[300];
begin
  if not IsModified then Halt;
  S:="Dokument ";
  if IsDocDefault 
    then begin
           S:= S + GetDocWndTittle + " nebyl nikdy uložen !"
         end 
    else begin
           S:= S + #13#10 + GetDocFileName;
           S:= S + #13#10"nebyl od poslední změny uložen !"
         end;

  S:= S + #13#10#13#10"Avšak jedno řešení by bylo.";
  S:= S + #13#10" Uložit ?!";
  if YesNo_Box("Důležité upozornění !", S)
    then SaveFile
    else MarkUnmodified;
end.