[*.bpl]

function GetSysDir: String;
begin
SetLength(Result, MAX_PATH);
SetLength(Result, GetSystemDirectory(PChar(Result), Length(Result)));
end;