Get the temporal path directory of windows

With GetTempPath:

Procedure TForm1.Button1Click ( Sender : TObject ) ;

Var

   Temp        : Array[ 0..Max_Path ] Of char ;

   TempDir     : String ;

Begin

   GetTempPath ( MAX_PATH , Temp ) ;

   TempDir := String ( Temp ) ;

   Caption := String ( Temp ) ;

End ;