错误,郁闷错误,郁闷错误,郁闷错误,郁闷

function ThreadProc(Ca:Pointer):DWORD;stdcall;
begin
ShowMessage('创建成功!!!');
Result:=0;
end;procedure TForm1.Button1Click(Sender: TObject);
var
ThreadId:Cardinal;
ThreadHandle:Cardinal;
begin
ThreadHandle:=CreateThread(nil,0,@ThreadProc,nil,0,ThreadId);
if ThreadHandle<>0 then
  begin
    ShowMessage('');
  end;
end;