请教哪里有关于TServerClientThread线程创建和使用的例子（Delphi)？

Question

请教哪里有关于TServerClientThread线程创建和使用的例子（Delphi)？

Answer 1

为什么我做的不行呢？请各位高手帮我看一看
constructor TMyServer.create;
begin
    FreeOnTerminate:=true;
end;procedure TF_Main.ServerGetThread(Sender: TObject;
  ClientSocket: TServerClientWinSocket;
  var SocketThread: TServerClientThread);
begin
  SocketThread:=TMyServer.create(false,ClientSocket);
end;

Answer 2

//记住delphi中的构造函数的一条规则：
// 永远记得打: inherited ,如果你不知道它的参数，可以不打，但一定要打
// inherited,记住，我说的是构造函数中，以及析构函数，其它的就看情况。
constructor TMyServer.create;
begin
  // FreeOnTerminate:=true; //这句已经在父类写了，多此一句
  inherited Create(False, ClientSocket);
end;