forum.boolean.name - Ошибка при подключению к порту сервера

Програма на емуляторе идет - а в телефоне выкидывает из програмы и выбивает ошибку

Verify Error:
java/lang/VerifyError:Lib_socket

Все происходит при начальном входе и подключению к порту компютера который имеет постоянный IP.

ОШИБКА ПРИ ВХОДЕ В ПРОЦЕДУРУ PIDCLUCHENNYA_PORT_SERVER
PHP код:



function PIDCLUCHENNYA_PORT_SERVER : boolean; // ПЕРЕВІРКА ЧИ МОЖНА ПІДКЛЮЧИТИСЯ ДО ГОЛОВНОГО ПОРТА СЕРВЕРА 
begin 
if socket.open('socket://' +IP_SERVER+ ':' +PORT_SERVER)<>0 then 
        begin 
        Debug('Error'); 
        PIDCLUCHENNYA_PORT_SERVER:=false;     
        end else PIDCLUCHENNYA_PORT_SERVER:=true; 
end; 
 
// ------------------------------------------------- 
// ГЛАВНЫЙ ЦЫКЛ 
 
 
begin  
     PORT_CLIENT:=''; 
     PASS:=''; 
             
   prov2 := false;    //если prov2=true, то выходим из программы, иначе цикл продолжается  
    repeat    //первый цикл, в котором выводится главное меню  
     clearForm; 
     prov := false;    
      
     // ВВОД ПАРОЛЯ 
     inform:=FormAddString('++++++++++');      
     II:=FormAddTextField('Клієнт', '1234567',  7, TF_NUMERIC);       
     I:=FormAddTextField('Пароль', '1234567',  7, TF_NUMERIC);       
               
     Open_program := createCommand('Вхід', CM_OK, 2);         
     Help := createCommand('Допомога', CM_OK, 3);         
     Exit_program := createCommand('Вихід', CM_OK, 1);         
                   
     addCommand(Open_program); 
     addCommand(Help); 
     addCommand(Exit_program); 
         showForm; 
   
     repeat    //второй цикл, в котором идет проверка выбранного пункта  
                delay(del);    //задержка в 0.1 секунду  
                Clicked := getClickedCommand;    //в перем. Clicked будет храниться нажатая команда  
                PASS:=FormGetText(I); 
                PORT_CLIENT:=FormGetText(II); 
 
              // ВИХІД З ПРОГРАМИ  
                if (Clicked = Exit_program) then  
                        begin    {Выход}  
                        prov := true;    //присваиваем перем. prov знач. true, что значит выход из 1-го цикла  
                        prov2 := true;    //присваиваем перем. prov2 знач. true, что значит выход из программы  
                         
                        socket.close; 
                        end; 
                         
                // ПОКАЗ ДОПОМОГИ 
                if (Clicked = Help) then  
                        begin                           
                        prov := true; 
                        end; 
                         
                         
                // ВХІД В ПРОГРАМУ 
                if (Clicked = Open_program) then                  
                        begin    
                        if PIDCLUCHENNYA_PORT_SERVER = false then 
                                begin 
                                // СЕРВЕР  НЕ  ЗНАЙДЕНИЙ 
                                prov := true;    //присваиваем перем. prov знач. true, что значит выход из 1-го цикла  
                                 
                                socket.close; 
                                clearForm;  
                                inform:=FormAddString('Не знайдено сервера ... Направильні настройки');                             
                                inform:=FormAddString('Спробуйте ще раз ...');         
                                showForm;     
                                                     
                                delay(2000);  
                                prov := true; 
                                end else BEGIN                                                 
                                                    // СЕРВЕР ПІДКЛЮЧИВ КЛІЄНТА 
                                                    clearForm;  
                                                    inform:=FormAddString('Сервер підключив вас як клієнта на головний порт ...');     
                                                         
                                                    // ................... 
                                                    END; 
                        end; 
                                
     until prov;    //если prov=true, то выходим в главное меню  
  until prov2;    //если prov2=true, то выходим из программы      
End.