1. Thread 생성 : File->New->Other->Thread Object 선택한 후 Class name 입력
2. Thread Header

#ifndef Unit2H
#define Unit2H
//---------------------------------------------------------------------------
#include 
#include 
//---------------------------------------------------------------------------
class ClntThd : public TThread
{
private:
	String m_message;
	TIdIOHandlerSocket* m_socket;
	TListBox* m_listbox;
protected:
	void __fastcall Execute();
	void __fastcall UpdateListbox();
public:
	__fastcall ClntThd(bool CreateSuspended);
	__fastcall ClntThd(TIdIOHandlerSocket* socket, TListBox* listbox);
};
//---------------------------------------------------------------------------
#endif

3. Thread body

void __fastcall ClntThd::UpdateListbox()
{
	m_listbox->ItemIndex = m_listbox->Items->Add(m_message);
}

__fastcall ClntThd::ClntThd(bool CreateSuspended)
	: TThread(CreateSuspended)
{
}

__fastcall ClntThd::ClntThd(TIdIOHandlerSocket* socket, TListBox* listbox)
	: m_socket(socket), m_listbox(listbox)
{
	ClntThd(false);
	FreeOnTerminate = true;
}

void __fastcall ClntThd::Execute()
{
	//---- Place thread code here ----
	while(m_socket->Connected()) {
		try {
			m_message = m_socket->ReadLn();
		}
		catch(EIdReadTimeout* e) {
			m_message = e->Message;
		}
		Synchronize(&UpdateListbox);
	}
}

4. TIdTCPClient 가 들어가 있는 Form 에서 #include "Thread header" -> Alt-F11 누르면 됩니다.
5. TIdTCPClient->OnConnect 생성

void __fastcall TForm1::CConnected(TObject *Sender)
{
	ClntThd *clntThd;
	clntThd = new ClntThd(C->Socket, ListBox1);
}

chrisb 님이 쓰신 글 :
: 그렇죠.. 말씀해주셨었죠 ㅠㅠ
:
: 근데 제가 쓰레드를 서버쪽에서 제공하는 것만 써보고 실제로 만들어 써보지는 않아서...
:
: 막 검색하면서 만드는 것을 찾아보고는 있는데..
:
: thread object를 하나 만들어서 
:
: 클래스 안에 이것저것 넣는다고 해보는 중입니다만..
:
: 혹시 이렇게 만들어서 하는게 맞긴 맞는건가요?
:
: 그렇다면 제가만든 thread -> excute() 이렇게 해서? 쓰게 되면...
:
: 제 경험은 인디 서버에서 해본 것 뿐이라..
:
: excute 함수를 어떻게 만들어서 써야할지 이해가 잘 가지 않네요..
:
: 조언 좀 부탁드려요 ㅠㅠ 너무 자주 여쭤봐서 제 무지함이 부끄럽네요..
:
:
:
: Julien 님이 쓰신 글 :
: : 전에 답변 드린 건데..^^
: :
: : Thread 를 사용하세요.
: :
: : 1 Thread Object 생성
: : 2 Thread 의 Execute 에서 읽어들이는 함수 실행
: : 3 try-catch 구문 사용해서 readtimeout 에 대한 exception(error 아니라..) 처리 <-- 이 부분은 저번에 답하지 않은 거
: :
: :
: : chrisb 님이 쓰신 글 :
: : : Readtimout을 안 걸어주면 프로그램이 얼어버리고,
: : :
: : : Readtimout = 5; 걸어주면, Read Timeout error 박스를 띄우고 수신하는 함수에서 브레이크 걸려있습니다..
: : :
: : : 현재 timer 인터벌 100정도로 두고, 그 안에서 수신을 하는 방식으로 하고 있는데요.
: : :
: : : read time out 문제를 어떻게 해결 할 수 있을까요...