گرفتن يك نام فايل Temp

[s.mostafa.rahmani]

سلام
من قبلاً از اين كد براي گرفتن نام يك فايل Temp غيرتكراري استفاده مي‌كردم.
اما حالا تو دلفي 2009 خطاي Access Violation مي‌ده. به نظر شما مشكل از چيه؟


function GetTempFile: string;
var
Buffer: array[0..MAX_PATH] OF Char;
begin
GetTempPath(Sizeof(Buffer) - 1, Buffer);
GetTempFileName(Buffer, '~lb', 0, Buffer);
Result := StrPas(Buffer);
end;

[s.mostafa.rahmani]

راه ديگري براي اين كار نيست؟
يعني براي پيدا كردن يك نام فايل غير تكراري در پوشه پيش فرض Temp.

لطفاً راهنمايي كنيد.

ضمناً حتي اگر فقط با تابع فوق بخواهم مسير پوشه Temp را بگيرم يعني تابع GetTempFileName رو هم حذف كنم، خطا باقي مي‌مونه.
احتمالاً خطا از خط آخر هست.

هم اكنون نيازمند ياري سبزتان هستيم.