分号处Ctrl + Shift +C转到实现部分，要写成下面这个样子：
procedure TForm1.ProcessEvent(Sender: TObject);
begin
Inc(GameTicks);
end;
GameDevice.Render画完一次就会调用Timer.Process(); 在一定的条件下，Timer.Process()，会在内部调用ProcessEvent事件过程，进行计数器累加操作。
Inc 等同于 GameTicks = GameTicks +1;但是inc更快。
最后，我们要把RenderEvent事件声明完成，并实现它。
type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
private
{ Private declarations }
GameTicks: Integer;
procedure OnDeviceCreate(Sender: TObject; Param: Pointer; var Handled: Boolean);
procedure TimerEvent(Sender: TObject);
procedure ProcessEvent(Sender: TObject);
procedure RenderEvent(Sender: TObject);
看上面最后一句，这是我们最终要绘画过程的声明，我们在分号部分Ctrl + Shift +C 转到过程的实现部分。
然后完成实现部分：
procedure TForm1.RenderEvent(Sender: TObject);
begin
GameCanvas.PutPixel(Point(10,10),$FFFFFFFF);
end;
忙活了半天的时间，就为了中间的一句话，
GameCanvas.PutPixel(Point(10,10),$FFFFFF);
我们终于用到GameCanvas了，画布，还记得我们前面声明和建立的画布了么？？
PutPixel画点，我们要在画布上画点，Point(x,y)在哪个位置画呢？$FFFFFF，我们要画的点是白色的。$FFFFFF 白色。
这篇文字希望会对一个入门者有帮助，China Yang,本次就到这里，休息，休息～～
demo下载