Работа с двумя сетевыми картами

int __fastcall TMainForm::LoadData(TStrings* List, AnsiString Cmd)
{
  try{
    Client->TCPClient->Connect();
    Client->TCPClient->WriteLn(Cmd);
    AnsiString Answer = Client->TCPClient->ReadLn();
    Block->Clear();
    AnalizeAnswer(Answer, Block);
    if(Block->Strings[0] == "ERROR"){
      AppError(GetErrName(StrToInt(Block->Strings[1])));
      if(Block->Count > 2){
        if(StrToInt(MainForm->Block->Strings[1]) != 2)
          WriteLog("Error (LoadData): " + GetErrName(StrToInt(Block->Strings[1]), Block), User->Login);
        else
          WriteLog("Error (LoadData): " + GetErrName(StrToInt(Block->Strings[1])) + " " + Block->Strings[2] + ".", User->Login);
      }else
        WriteLog("Error (LoadData): " + GetErrName(StrToInt(Block->Strings[1])), User->Login);
      Client->TCPClient->Disconnect();
      return StrToInt(Block->Strings[1]);
    }else{
      for(int i = 1; i < Block->Count; i++){
        List->Add(Block->Strings[i]);
      }
      Client->TCPClient->Disconnect();
    }
  }catch(Exception &e){
    Client->TCPClient->Disconnect();
    AppError(GetErrName(7));
    WriteLog("Error (LoadData): " + GetErrName(7) + ". " + CreateErrMsg(e.Message), User->Login);
    return 7;
  }
  return 0;
}