创建线程失败(20分)

procedure TForm1.Button1Click(Sender: TObject);
var
; ;hThread:Thandle; ;//定义一个句柄
; ;ThreadIDWord;
begin
; //创建线程，同时线程函数被调用
; hthread:=CreateThread(nil,0,@MyThreadfunc,nil,0,ThreadID);
; if hThread=0 then
; ; messagebox(Handle,'Didn’t Create a Thread',nil,MB_OK);
end;
检查语法错误，在
; hthread:=CreateThread(nil,0,@MyThreadfunc,nil,0,ThreadID);
行上，说缺少变量，为什么？（在第二个nil上）。

你的线程函数MyThreadfunc怎么写的？

这么写的：
function Tform1.MyThreadFunc(Pointer):Longint;stdcall;
var
; ;i:integer;
; ;DC:HDC;
; ;S:string;
begin
; ; ;DC:=GetDC(Form1.Handle);
; ; ;for i:=0 to 100000 do begin
; ; ; ; ;S:=Inttostr(i);
; ; ; ; ;Textout(DC,10,10,Pchar(S),length(S));
; ; ;end;
; ; ;ReleaseDC(Form1.Handle,DC);
end;

调试通过，没有错误。

function MyThreadFunc(Pointer):Longint;stdcall;
var
; ;i:integer;
; ;DC:HDC;
; ;S:string;
begin
; ; ;DC:=GetDC(Form1.Handle);
; ; ;for i:=0 to 100000 do begin
; ; ; ; ;S:=Inttostr(i);
; ; ; ; ;Textout(DC,10,10,Pchar(S),length(S));
; ; ;end;
; ; ;ReleaseDC(Form1.Handle,DC);
end;

procedure TForm1.UsedThreadClick(Sender: TObject);
var
; ;hThread:Thandle;//定义一个句柄
; ;ThreadIDWord;
begin
//创建线程，同时线程函数被调用
; hthread:=CreateThread(nil,0,@MyThreadfunc,nil,0,ThreadID);
; if hThread=0 then
; ; messagebox(Handle,'Didn’t Create a Thread',nil,MB_OK);
end;

数据狂的错误在于，MyThreadFunc 定义为TForm1的类方法了，要把它脱出来作为单独的函数

同意pipi的建议