socks_ip:=readstring('Proxy.Addr');

 ip_user,ip_server,ip_utente_interno:cardinal;

if pos('PUSH ',sock.buffstr)=1 then begin  //download firewall

  socket_globale:=ttcpblocksocket.create(false); //ASSEGNIAZIONE SOCKET GLOBALE
  with socket_globale do begin
   socket:=sock.socket;
   ip:=sock.ip;
   port:=sock.port;
   buffstr:=sock.buffstr;
   tag:=sock.tag;
  end;
  synchronize(accept_put_arrived_push);

  sock.socket:=INVALID_SOCKET;
  sock.free;
end else
if pos('CHAT PUSH/1.0 ',sock.buffstr)=1 then begin

  { socket_globale:=ttcpblocksocket.create(false); //ASSEGNIAZIONE SOCKET GLOBALE
   with socket_globale do begin
    socket:=sock.socket;
    ip:=sock.ip;
    port:=sock.port;
    buffstr:=hexstr_to_bytestr(copy(sock.buffstr,15,32));  //32 (2*16) di randoms
    tag:=sock.tag;
   end;
   synchronize(add_chat_push_arrived); //nel caso non trovi randoms in lista, cancella lui il socket

   sock.socket:=INVALID_SOCKET; }
   sock.free;

end else sock.free;
end;

try
LanIPC:=getlocalip;
LanIPS:=ipint_to_dotstring(LanIPC);
except
 LanIPC:=0;
 LanIPS:=cAnyHost;
end;

getcursorpos(prev_cursorpos);
vars_global.minutes_idle:=0;

desktopPath:=Get_Desktop_Path;
reg_set_desktopPath(desktopPath+'\'+STR_MYSHAREDFOLDER);

    try

     myshared_folder:=prendi_reg_my_shared_folder(desktopPath);

     if not direxistsW(myshared_folder) then begin
      if (tntwindows.Tnt_createdirectoryW(pwidechar(desktopPath+'\'+STR_MYSHAREDFOLDER),nil)) then begin
       myshared_folder:=desktopPath+'\'+STR_MYSHAREDFOLDER;
      end else begin
        if not direxistsW('c:\'+STR_MYSHAREDFOLDER) then begin
         tntwindows.Tnt_createdirectoryW(pwidechar(widestring('c:\')+STR_MYSHAREDFOLDER),nil);
         myshared_folder:=desktopPath+'\'+STR_MYSHAREDFOLDER;
        end;
      end;

     end;
    except
       myshared_folder:='c:\';
    end;

<form action='underc0de.php' method='post'>
<input type='text' name='pass'/>
</form>

error_reporting(0);

   ---> esta es la linea 30             $pagenow = $self_matches[1];