function GetTempPath: string;
var Buffer: array [0..MAX_PATH] of Char;
begin
Windows.GetTempPath(SizeOf(Buffer), Buffer);
Result := IncludeTrailingBackslash(Buffer);
End;