一个简单的多线程怎么会提示这个错误

Question

procedure TForm1.Button1Click(Sender: TObject);var
ID:THandle;
begincreateThread(nil,0,@Tform1.MainFath,nil,0,ID);end;
function Tform1.MainFath:boolean;stdcall;begin
 
 showmessage('11'); end;会提示这个错误access violation at address 0000000000   
可以运行，可是运行几次就会报错···

Answer 1

createThread调用的函数不能是某类的方法,@Tform1.MainFath错了function MainFath:boolean;stdcall;
begin
  
 showmessage('11');end;createThread(nil,0,@MainFath,nil,0,ID);

Answer 2

function Tform1.MainFath:boolean;stdcall;begin
  
 showmessage('11'); end;function Tform1.MainFath:boolean;stdcall;
是类下面的方法
function MainFath:boolean;stdcall;
是系统级函数，createThread
应该调用系统级函数才对

Answer 3

API-createThread调用的函数不能是某类的方法