For NN:=0 To RS232_Servers_Counter-1 Do
     Begin
       If  RS232_Servers_List[NN].RS232_Server_Name=RS232_Server_Name Then Exit;
     End;


   My_RS232Server:=TComPort.Create(Nil);
   My_RS232Server.Name:=RS232_Server_Name;
   My_RS232Server.BaudRate:=br9600;
   My_RS232Server.Port:='COM9';

   My_RS232_Read_Event:=TMy_RS232_Server.Create; // Создаем экземпляр класса с процедурой, преобразующей получаемые по 
   RS232 данные в строку
   My_RS232Server.OnRxChar:=My_RS232_Read_Event.Data_Read; // Назначаем индивидуальный обработчик событию получения 
   данных по TCP для созданного сервера
   My_RS232_Read_Event.Function_Name_To_Get_RS232_Data:=Function_Name_To_Get_RS232_Data; // Указываем имя функции внутри 
   скрипта, в которую будем возвращать строку полученных данных
   My_RS232Server.Open;

   RS232_Servers_List[RS232_Servers_Counter].RS232_Server_Name:=RS232_Server_Name;
   RS232_Servers_List[RS232_Servers_Counter].RS232_Server_Pointer:=My_RS232Server;
   RS232_Servers_Counter:=RS232_Servers_Counter+1;

       PP:= RS232_Servers_List[0].RS232_Server_Pointer;
       Sender:=PP;
       (Sender As TComPort).WriteStr('ererer');