Hola,
Intentado juguetear con los sockets he descubierto que dan un internal error en Windows CE, sin embargo en Windows Mobile parece que va bien, incluyendo el emulador.
Las pruebas las estoy haciendo con una casio cassiopea IT-600
Esto falla: o := TSocket():New( , oWnd )
Esto también: nSocket := Socket( AF_IRDA, SOCK_STREAM, 0 )
devuelve -1 en vez de un nº de socket y no es un valor válido.
Es muy importante, pues inmediatamente, perdemos compatibilidad con las máquinas industriales bajo win CE.
Un Saludo,
Joaquín