delphi 线程有关问题

delphi 线程问题
procedure TForm1.Button4Click(Sender: TObject);
var
  ID:DWORD;
  mc:MyClass;
begin
  mc:=MyClass.create;
  BeginThread(nil,1024, @mc.execute, nil, 0,id);、、
end;

提示Variable required.
如何写呢？
我想在线程里调用类里的一个方法。


[解决办法]
不知道怎么写，怎么不派生 TThread呢
[解决办法]
BeginThread的ThreadFunc参数不能是某类的方法,但可以在线程内执行某类的方法
@mc.execute这是错误的写法

procedure TForm1.x1; 
begin

end;

procedure x2;
begin
 Form1.x1;
end;

错误:BeginThread(nil,1024, @Form1.x1, ...
正确:BeginThread(nil,1024, @x2, ...