Usuario activo desde Delphi

[engeneral]

Antes que nada saludos a todos...

Estoy desarrollando una pequeña aplicación en Delphi 7 bajo VCL (está destinada a funcionar sobre plataforma NT).

El caso es que me gustaría poder recoger el código del usuario que inició sesión en Windows , de hecho, me gustaría obtener no sólo el nombre del usuario, sino el ID del mismo:

Usuario : Carlos
ID : S-1-4-25-578958907-655485325-33430523011-3005

Muchas gracias

[engeneral]

El nombre del usuario ya he averiguado cómo sacarlo:

function GetUser : string ;
var
buffer : String ;
buffsize : DWORD ;
begin
buffsize := 128;
Setlength (buffer, buffsize);
Getusername (Pchar(buffer), buffsize);
Result := buffer;
end;

lo que me falta es el famoso ID que no tengo ni idea de qué API usar para obtenerlo.....