function GetTempDirectory : String;
var
TempDir : array[0..255] of Char;
begin
GetTempPath(255, @TempDir);
Result := StrPas(TempDir);
end;