Delphi 5 +windows vista y archivo de texto

[Enan0]

Hola amigos tanto tiempo, bueno hace mucho que no me voy una vuelta por el foro debido a uqe el trabajo me viene jugando malas pasadas . degraciada mente este punto no lo he podido resolver por mi mismo. asique e aqui mi problema

este codigo pertenece a una unidad que permite hacer un drag and drop desde outlook, funciona todo bien, eh solucionado el 90% de los inconvenientes salvo el de la estructura de texto del archivo

para hacerlo facil, lo que falta de la unidad extrae del archivo temporarl del mail (de outlook), y guarda las disintas partes, ya sean. archivos adjuntos, texto etc.

el problema es este.
ya sea en body del mensaje o el nombre de los archivos adjuntos. solo me levanta el primer caracter.

aca dejo un img de un type del archivo para que vean la extructura
http://link.imgshare.us/41jcSu
estas son las pruebas que hice. por ejemplo la primera (rojo) es la que peor funciona, me debuelve el primer caractar, haveces varios pero en forma de ????? (imagen)
http://apr01.imgshare.us/dop.jpg

la segundo opcion (negro) es la que funciona un poco mejor. que si m debuelve la primer letra del nombre de archivo o cuepor del mensaje.



Código Delphi [-]
sl2.LoadFromFile('C:\Users\EnanO\AppData\Local\Temp\uox535.tmp');
application.ProcessMessages;
wide:=pwidechar(sl2.text);
application.ProcessMessages;
attachmentFileName:=wide;
application.ProcessMessages;
SetLength (attachmentFileName,StrLen(Pchar(attachmentFileName)));
ShowMessage(widestring(attachmentFileName));
with TStringList.Create do
try
LoadFromFile('C:\Users\EnanO\AppData\Local\Temp\uox535.tmp);
if Length(trim(strings[0])) =1 then begin
wide := Pwidechar (strings[0]);
attachmentFileName:=wide;
SetLength (attachmentFileName,StrLen(Pchar(attachmentFileName)));
end else
attachmentFileName := strings[0];