嘗試自己翻的,但是新手,觀念似乎就差一步....請教前輩更正
----------------------------------------Delphi----------------------------------------------------------------------
TSimpleClient = class(TObject)
DNS,
Name : String;
ListLink : Integer;
Thread : Pointer;
end;
procedure TfrmMain.tcpServerConnect(AThread: TIdPeerThread);
var
Client : TSimpleClient;
begin

AThread.Connection.WriteLn('ISD Connection Established...');
AThread.Connection.WriteLn('Please send valid login sequence...');
AThread.Connection.WriteLn('Your Name:');
Client := TSimpleClient.Create;
Client.DNS := AThread.Connection.LocalName;
Client.Name := 'Logging In';
Client.ListLink := lbClients.Items.Count;
Client.Thread := AThread;
lbClients.Items.Add(Client.Name);

{ Assign it to the thread so we can identify it later }
AThread.Data := Client;

Clients.Add(Client);
end;

----------------------------------------BCB----------------------------------------------------------------------
class TSimpleClient
{
public:
String DNS;
String Name;
int ListLink;
void *Thread;
};
void __fastcall TForm1::tcpServerConnect(TIdPeerThread *AThread)
{
TSimpleClient *Client ;
AThread->Connection->WriteLn("ISD Connection Established...");
AThread->Connection->WriteLn("Please send valid login sequence...");
AThread->Connection->WriteLn("Your Name:");
Client= new TSimpleClient;
Client->DNS = AThread->Connection->LocalName;
Client->Name = "Logging In";
Client->ListLink = lbClients->Items->Count;
Client->Thread = AThread;
lbClients->Items->Add(Client->Name);

//{ Assign it to the thread so we can identify it later }
AThread->Data = Client; // 出錯
Clients->Add(Client);
}