Foreword: 
I am still in a Christmas mood. ;-) And considering a really huge interest in such "sparkling marriage" (Delphi and Kinect) and a very positive feedback from you guys, - I made some quick changes in the 3D demo, (which you should already know well), and added even more cool features. This is what was done:
- Most important thing: now you can grab 3D frames (3D data + 2D mapping), save it and run on a computer without Kinect! No need to have any drivers installed. You can give this program to your friends and they will be able to see your 3D pictures! :-)
- 2D to 3D mapping is fixed. It's still not ideal, but much better then before.
- You can switch on/off 2D and3D viewing mode. Pretty handy.
- It is possible to manage motor and change tilt of the Kinect.
- Newest version of Kinect.pas is included (Simon J Stuart - thank you for the update! More info about TKinect project is here)
- Bug fixed here and there.
EXE is precompiled as usual, so can be used right away. Here is the link to EXE and the source code in Delphi:
http://itsecuritylab.eu/files/kinect/kinect_delphi_3dpoints.zip
To make yourself more familiar with what the story is about, I strongly encourage you to look through the previous post about the Kinect and see the movie.
How to save/load3D frame
It's pretty easy actually. Select Frame --> Save from the main menu (you didn't expected anything else, yea?), then give a name without file extension. Program will grab the current frame and create 2 BMP files: one for 2D and the other for the 3D data (yes, they are just regular BMP files).
Those files would have a special suffix inside. A keywords: _KinectRGB and _KinectDepth.
If you want to open a frame: go to Frame --> Load and point to any of those two files. Program would find it's way to load them properly :-)
3D view on/off
There is nothing to explain here really.
Some sample images are included in the package (e.g. a nice 3D view of my corridor) :-)
This is it. Have fun and definitely drink enough to celebrate a New Year properly!
