加入新图形的步骤 1、在GraphRecord单元 定义结构体 2、在MyGraph单元的集合体(TClassGraph)中 加入该图形 3、MyGraph单元的private声明该图形的链表,Create中创建，Destory中释放 4、MouseUp事件中加入链表 5、MouseMove事件中移动图形 6、DrawGraph过程中加入画图 7、Clear 加入清空 8、preDel过程 9、preFill过程 10、preMove过程 11、SaveToFile过程 12、LoadFromFile过程