delphi中用GDI函数画三维立体图,带源码,在delphi7+WinXPsp2下编译通过