var
b: PBoolean;
begin
b := @Application.Terminated;
b^ := True;
end;

(ﾟ∀ﾟ ) ｱﾋｬ！