Socket上接收到的数据用一线程来处理，下面的方法错在哪里？急!

//下面创建一个简单的线程类
type
  TInitThread = class(TThread)
  private
    procedure ProData;
  protected
    procedure Execute; override;
 end;Procedure TForm1.RecvData()//接收socket上收到的数据
var
NewThread:TInitThread;
begin
//Socket接收到的数据放入一数组中
//然后启动一线程来处理该数组上的数据
NewThread:=TInitThread.Create(false);
//这里每次收到数据都创建一个线程，在哪里销毁?不消毁资源会耗尽
end;
procedure TInitThread.Execute;
begin
  FreeOnTermiNate:=True;
  Synchronize(ProData);
end;
//重载Execute方法procedure TInitThread.ProData;
begin
  Screen.Cursor:=crHourGlass;
  DealData;   //处理数组上的数据
  Screen.Cursor:=crDefault;
end;