System Delphi

Title: How do I determine the System Directory (or Path)
CODE
function GetSystemPath: string;
var
buffer: array [ 0..MAX_PATH ] of char;
begin
GetSystemDirectory( buffer, MAX_PATH );
result := IncludeTrailingPathDelimiter( String(buffer) );
end;