Cerrar sesion Windows XP

[[Caral]]

Hola
Aqui con una pregunta
Primero inicio una sesion con escritorio remoto, bien con usuario x,
Este inicia un programa que tengo definido.
Al salir del programa quiero que se cierre la sesion en windows
Actualmente lo que me cierra es windows completo y me apaga el ordenador
Estoy usando una funcion para apagar, pero no se como modificarla para cerrar la sesion.
Esta es la funcion

Código Delphi [-]
 
function ShutDownWindows(Flag: word): Boolean;
  //Función que permite apagar la computadora
  var
    TokenPriv: TTokenPrivileges;
    H: DWord;
    HToken: THandle;
  begin
    if Win32Platform = VER_PLATFORM_WIN32_NT then
  begin
     OpenProcessToken(GetCurrentProcess,
      TOKEN_ADJUST_PRIVILEGES,HToken);
     LookUpPrivilegeValue(NIL, 'SeShutdownPrivilege',
      TokenPriv.Privileges[0].Luid);
     TokenPriv.PrivilegeCount := 1;
     TokenPriv.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;
     H := 0;
     AdjustTokenPrivileges(HToken, FALSE,
     TokenPriv, 0, PTokenPrivileges(NIL)^, H);
     CloseHandle(HToken);
   end;
    Result := ExitWindowsEx(Flag, 0);
 end;

y con esto apaga

Código Delphi [-]
ShutDownWindows(EWX_POWEROFF);

Me pueden explicar que modifico para que cierre en vez de apagar.

Gracias de antemano
Saludos