最佳答案：多线程其实非常简单，DELPHI有多线程的类，你添加即可使用，但是我喜欢自己调用API，方法如下：定义一个函数或者过程，这个函数就是线程要执行的内容，然后调用API就可以不断创建线程，每个线程都单独的

delphi 多线程

多线程其实非常简单，DELPHI有多线程的类，你添加即可使用，但是我喜欢自己调用API，方法如下：

定义一个函数或者过程，这个函数就是线程要执行的内容，然后调用API就可以不断创建线程，每个线程都单独的执行那个函数，执行完毕线程就自动关闭，下面是我程序里面的部分代码：

{下面这个就是线程过程，我的线程传递一个参数，建立的SOCKET}procedureClientThread(varsock:TSOCKET)

;stdcall;var……;begin……end;{下面是主程序建立服务，等待连接，连接后调用线程进行处理的代码}repeatiAddrSize:=sizeof(client)

;sClient:=accept(sListen,@client,@iAddrSize)

;ifsClient=INVALID_SOCKETthenbeginSocketErrorMsg(sClient,'accept()fail')

;break;end;writeln('Acceptedclient:',inet_ntoa(client.sin_addr),':',ntohs(client.sin_port),'sock=',sClient)

;hThread:=CreateThread(nil,$1000,@ClientThread,@sClient,0,dwThreadId)

;ifhThread=0thenbeginwriteln('CreateThread()fail:',GetLastError)

;break;end;CloseHandle(hThread);untilfalse;