Delphi: Get temp directory

Delphi: Get temp directory

function GetTempDir: WideString; stdcall;
var
  Buffer: array[0..MAX_PATH] of Char;
begin
  GetTempPath((SizeOf(Buffer) div SizeOf(Char)) - 1, Buffer);
  Result := Buffer;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
  ShowMessage(GetTempDir);
end;