从非主线程绘制到主窗体画布

我正在尝试为我的学校项目制作街机游戏.基本思想是在主要的其他线程中进行所有数学和绘图,并仅将主线程用于输入例程.绘图由保存在外部单元中的过程完成,通过创建位图,然后在位图上绘制环境的一部分并最终在主窗体的画布上破坏位图来完成.当我完成绘图程序时,我试图从主线程运行它,并设法使everythink按预期工作(除了整个应用程序窗口被冻结的事实,但由于主线程工作没有停止,sommething像这是预期的).然后我试图将该过程放在其他线程中,并且它停止工作(尽管调试例程报告该过程被重复执行,但它没有绘制任何东西).经过一些添加然后删除的调试例程后,它开始工作没有明显的原因,但不可靠.在大约80%的情况下,它运行平稳,但在其余的情况下它会在十到三十帧后停止,有时甚至不会在最后一帧中卡住一些环境部件.

主窗体单元的重要部分如下所示

procedure TForm1.Button1Click(Sender: TObject);

begin
running:=not running;
if running then AppTheard.Create(false);
end;

Procedure AppTheard.execute;

begin
 form1.Button1.Caption:='running';
 while running do begin view.nextframe; end;
 form1.Button1.Caption:='no longer running';

end;

而另一个单元中的nextframe过程看起来像这样

     Camera = class
 owner:Tform;
 focus:GravityAffected;
 Walls:PBlankLevel;
 Creeps:MonsterList;
 FrameRateCap,lastframe:integer;
 Background:TBitmap;
 plocha:TBitmap;
 RelativePosY,RelativePosX:integer;
 constructor create(owner:Tform; focus:GravityAffected; Walls:PBlankLevel; Creeps:MonsterList; FrameRateCap:integer; background:TBitmap);
 procedure nextframe;
end;    



 procedure camera.nextframe;
 var i,i1,top,topinfield, left,leftinfield: integer ;

  procedure Repair
      //some unimportant math here

  Procedure vykresli(co:vec);
   begin
   if co is gravityaffected then
    plocha.Canvas.Draw(co.PositionX*fieldsize+Gravityaffected(co).PosInFieldX-Left*fieldsize+leftinfield-co.getImgPosX,
     co.PositionY*fieldsize+Gravityaffected(co).PosInFieldY-top*fieldsize+topinfield-co.getImgPosY,
     co.image)
   else
     plocha.Canvas.Draw(co.PositionX*fieldsize-Left*fieldsize+leftinfield-co.getImgPosX,
     co.PositionY*fieldsize-top*fieldsize+topinfield-co.getImgPosY,
     co.image);
   end;

 begin
   // some more unimportant math

  vykresli(focus);                                                 

  For i:= Left+1 to left+2+(plocha.Width div fieldsize) do                                                         //vykreslení zdí
   For i1:= Top+1 to top+2+(plocha.Height div fieldsize) do
    if (i< Walls.LevelSizeX) and (i1< Walls.LevelSizeY) and (i>=0) and (i1>=0) and walls.IsZed(i,i1) then
     begin vykresli(walls^.GiveZed(i,i1)^);end;

  while abs((gettickcount() mod high(word))-lastframe) < (1000 div FrameRateCap) do sleep(1); 
  lastframe:=gettickcount mod high (word);

  owner.Canvas.Draw(-fieldsize,-fieldsize,plocha);     

 end;

有人可以告诉我,我做错了什么？

编辑:我有我要求帮助,但再过几年后,我意识到我真正需要的建议是不是在所有使用线程和尝试像这样来代替.