初学多线程，求高手指点

 

function MyFun(p:Pointer):Integer;stdcall;
  var
    i:Integer;
begin
  for i := 0 to 90000 do
  begin
    MessageBox(0,'aaa','fdsf',MB_OK); //线程函数体里只可以执行函数，不可以执行过程；
    ShowMessage('aa'); //所以执行这句会出错；
    //因为，ShowMessage是过程体，MessageBox是函数体；按Crtl键加鼠标左点单击查看原形就知道；
    Form1.Canvas.TextOut(10,10,IntToStr(i));
    Sleep(2);
  end;
end;

procedure TForm1.btn1Click(Sender: TObject);
  var
    Id:DWORD;
begin
  HTheard := CreateThread(nil,0,@MyFun,nil,CREATE_SUSPENDED,Id);
end;

procedure TForm1.btn2Click(Sender: TObject);
begin
  ResumeThread(HTheard); //执行线程；就是开始；
end;

procedure TForm1.btn3Click(Sender: TObject);
begin
  SuspendThread(HTheard); //挂起线程；也就是暂停；
end;