指针坐标的使用：
1.声明var pt:TPoint;//声明坐标
2.在可以获得坐标的事件里：pt:=point(x,y); //赋值
3.传进某个以指针为参数的函数里@pt
4.在那函数里声明一个接收指针变量的指针变量var pt2:TPoint;
5.接收指针参数：pt2:=[函数参数的指针名]^;
6.在接收的函数里使用例：Form1.Canvas.TextOut(pt2.X, pt2.Y, DateTimeToStr(DateTime));
窗体需要更新时可：Repaint;{重画}.
关于类：
1、覆盖(父有 virtual; 子有: override;)
2、屏蔽(同名、同参数, 但没有覆盖; 这种情况几乎没人使用, 只是从逻辑上探讨下)
覆盖: 用谁最先建立的就使用谁的, 不管转换与否.
屏蔽: 转换为谁就使用谁的.
