Gracias por la ayuda. Al final he encontrado unas librerias llamadas DIMimeStreams. Tiene un procedimiento llamado MimeDecodeFile que lo desencripta bien Pero estas librerias me las he bajado en el curro , q tengo w2000 y me las ha desencriptado mal.Ahora en casa con xp las imagenes vienen bien. Mañana con w2000 probaré.
os envio el trozo de codigo, a mi me ha sido muy util. El codigo era para probar, por lo que no está muy bonito
fich es Textfile, y pop es TNMPOP3
assignfile(fich,'c:\In.jpg');
rewrite(fich);
write(fich,pop.MailMessage.Body.Text);
closefile(fich);
mimedecodefile('c:\In.jpg' , 'c:\OUT.jpg');
Gracias