IdTCPServer怎么样主动跟指定客服端发送数据？

[xxxcyy]

不在OnExecute事件里面发送,代码如下:
TList *ListA;
int i;
ListA =IdTCPServer1->Threads->LockList();
for(i=0;i<ListA->Count;i++)
{
try
{
TIdPeerThread(ListA->Items[i])->Connection->WriteLn("Thread OK");
}
__finally
{

}
}
IdTCPServer1->Threads->UnlockList();

现在这句不能编译通过,
TIdPeerThread(ListA->Items[i])->Connection->WriteLn("Thread OK");

错误: [C++ Error] Unit1.cpp(287): E2288 Pointer to structure required on left side of -> or ->*

求教大家,谢谢.

[ooolinux]

可能是某个 -> 应该换成 .

[xxxcyy]

改成TIdPeerThread(ListA->Items[i]).Connection->WriteLn("Thread OK");编译通过,但执行时会出错. Access violation at address 0041460C in modeule 'Project1.exe'.Read of address 0000000.

[ooolinux]

有没有两次释放指针或者访问未初始化的对象？把一些delete先注释掉试试，有一些对象由VCL机制自动释放了，代码又手工delete。