Компонент ListView1

      StringGrid1->RowCount++;
    FromClientList->CommaText = AContext->Connection->IOHandler->ReadLn(); 
    for (int j = 0; j < FromClientList->Count; j++) {
        StringGrid1->Cells[j][StringGrid1->RowCount - 1] =
            FromClientList->Strings[j];
    }
    delete FromClientList;

    unsigned long size = MAX_COMPUTERNAME_LENGTH + 1;
    wchar_t *buf = new wchar_t[size];
    String nick = "1";
    GetComputerName(buf, &size);
    String host = buf;
    String date = Now().CurrentDateTime();
 
    ToServerList->Add(nick   );      // никнейм
    ToServerList->Add(date   );      // дата-время
    ToServerList->Add(host   );      // имя компа
    ToServerList->Add(version);      // версия винды
 
 
    
    this->IdTCPClient1->IOHandler->WriteLn(ToServerList->CommaText);
    
    delete []buf;
    delete ToServerList;
}

TStringList *FromClientList = new TStringList;
 
void __fastcall TForm1::IdTCPServer1Connect(TIdContext *AContext) {
    TListItem *listeg;
    FromClientList->CommaText = AContext->Connection->IOHandler->ReadLn();
 
    for (int j = 0; j < FromClientList->Count; j++) {
        listeg = ListView1->Items->Add();
        listeg->Caption = FromClientList->Strings[j];
    }
 
    delete FromClientList;
 
}