function TempPath: string;

var

  i: integer;

begin

   SetLength( Result, MAX_PATH );

   i := GetTempPath( Length( Result ), PChar( Result ) );

   SetLength( Result, i );

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

   ShowMessage( TempPath );

end;