Delphi - Directorio de perfiles

Hola,
¿cómo saber desde una aplicación en Delphi cual es el directorio donde está instalado el sistema operativo y cual es la carpeta que contiene el perfil del usuario que ha abierto la sesión? Mi intención es crear un acceso directo en la carpeta inicio de ese perfil para que una aplicación se lance al abrir la sesión.

Gracias por vuestra ayuda.
Saludos.

La carpeta que contiene los perfiles de usuario en net y xp es: C:\Documents and Settings
dentro de este directorio encontraras por defecto: all user, default user, y tambien nombres de sesion definidos por el usuario.

//para obtenerr el directorio de Windows y del sistetma de windows:
// creo que tambien es compatible paraa win 9.x(no estoy seguro)
function WinDirs: string;
var
dir: array [0..MAX_PATH] of Char;
begin
// GetSystemDirectory(dir, MAX_PATH); // sistema de win
GetWindowsDirectory(dir, MAX_PATH); //de win
Result := StrPas(dir);
end;