一个简单的多线程如何会提示这个异常

一个简单的多线程怎么会提示这个错误
procedure TForm1.Button1Click(Sender: TObject);

var
ID:THandle;
begin

createThread(nil,0,@Tform1.MainFath,nil,0,ID);

end;


function Tform1.MainFath:boolean;stdcall;

begin
 
 showmessage('11');

 end;

会提示这个错误access violation at address 0000000000  
可以运行，可是运行几次就会报错···

[解决办法]
function Tform1.MainFath:boolean;stdcall;

begin
  
 showmessage('11');

 end;

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