Как программно определить, что приложение работает под Windows NT?

function IsNT : bool;
var
        osv : TOSVERSIONINFO;
begin
        result := true;
        GetVersionEx(osv);
        if osv.dwPlatformId = VER_PLATFORM_WIN32_NT then exit;
        result := false;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
        if IsNt then
                ShowMessage('Running on NT')
        else
                ShowMessage('Not Running on NT');
end;