一个简单的多线程怎么会提示这个错误
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
应该调用系统级函数才对