特尔斐 你好。还有点问题啊。(0分)

特尔斐 大哥。代码调式不过去啊。
我还有几个问题。想问问你。
var
Form1: TForm1;
bExit: boolean;
//构悉一个布尔内型
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
i, t: integer;
c: Char;
begin
c := 'A';
i := 1;
bExit := false;//设置为否
Canvas.Font.Style := [fsBold];//设置字体
while true do
//当为真的时候运行。可是。为什么不加上名字？在什么时候可以用这样
//默认的循环?
begin
Canvas.Font.Color := Color;
Canvas.TextOut(100,i,c);
if i > Height then
i := 1;//但i 大于窗体高度时。设置i为1。也就是从头开始显示。
t := GetTickCount;//这里不我明白。。什么意思啊？
inc(i,20);//还有这里也是啊。
Canvas.Font.Color := clBlue;//为什么这里也要设置原色呢？
Canvas.TextOut(100,i,c);//这里要循环第二次。
while GetTickCount < t + 100 do
//这里最不明白。
Application.ProcessMessages;//这里也是。是什么意思啊？
if bExit then
break;
//检测bExit是否为假？
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
bExit := true;//设置为真。
end;

还有我想怎么问。继承内时是么时候可以从Type .什么时候可以从Var里继承？
还有内指针有什么用啊？我从书上看。好象和其他的一样啊。
求求你教教我。