procedure TMainC2Form.SendImageData(Sender: Tobject);
var FileStream : TFileStream;
var FileLength, i : integer;
begin
   lbStatus.Caption := '파일을 서버로 전송 중...';
   SendFileName := 'C:test.jpg';
   if FileExists(SendFileName) then // 파일이 존재하면
   begin
      FileStream   := TFileStream.Create(SendFileName,fmOpenRead);
      FileLength   := FileStream.Size;
       if SendFileName <> '' then
       begin
          ClientSocket2.Socket.SendText(SendFileName);
          sleep(100);
          ClientSocket2.Active := False;
       end;
       //********************************

      if FileLength > 0 then
       begin
           ClientSocket3.Active := True;
          if ClientSocket3.Active then
             begin
               lbStatus.Caption := '파일을 서버로 전송 중...!!!';
               ClientSocket3.Socket.SendBuf(Filelength,SizeOf(FileLength));
               ClientSocket3.Socket.SendStream(FileStream);
             end;
             ClientSocket3.Active := False;
       end;
       ClientSocket2.Active := False;
   end
   else // 파일이 없으면
   begin
      lbStatus.Caption := '파일이 존재하지 않습니다.';
      Exit;
   end;

end;

procedure TMainC2Form.Button2Click(Sender: TObject);
begin
     ClientSocket2.Active := true
end;

파일전송은 돼나 접속시간이 너무 오래걸리고 클라이언트 소켓 Disconnect 이벤트에서 전송완료가 되었는데 서버에서는 한참뒤에 쓰레드가 종료됩니다.
문제점1. 서버에 화일전송이 너무느리다.
문제점2. 클라이언트의 Disconnect 이벤트에서 종료를 알려왔는데 서버에서는 한참뒤에 쓰레드가 종료됩니다.
좋은 해결방법있으시면 한 수 가르쳐 주십시요.