add

function IsWindows7: Boolean
procedure WriteDebug(const s : string)