Lector de mensajes

[FideRosado]

hola necesito hacer una aplicacion que pueda leer los mensajes basicos que te entran al email, es decir , cada email , es un archivo con varios datos , que despues el cliente de correos puede leerlos, como un outlook, pero hace mucho ya estoy buscando la manera de hacer uno que me permita descargar el mensaje , bueno eso lo hice pero despues necesito y abrirlo y obtener denuevo los datos.. pero no encuentro la forma de hacerlo..

hay un ejemplo masico de cliente email en delphi , pero kiero sumarle esas funcionalidades, trate de hacerlo asignando o cargando el mensaje ya guardado , al IdMessaje o al IdMesajeMime, pero me da error a la hora de acceder al fichero, o alos datos..

alguien con una idea..

aca muestro algo que hice hace rato ta pero tampoco sale..

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
int,ass :integer;
begin

 IdMessage.LoadFromFile('md50000000010.msg');
 IdMessage.ProcessHeaders;
 
 int:=IdMessage.MessageParts.Count;
 Memo1.Lines.Add('MessageParts ['+IntToStr(int)+']');
 Memo1.Lines.Add('TextPartCount ['+IntToStr(IdMessage.MessageParts.TextPartCount)+']');
 Memo1.Lines.Add('AttachmentCount ['+IntToStr(IdMessage.MessageParts.AttachmentCount)+']');
 Memo1.Lines.Add('RelatedPartCount ['+IntToStr(IdMessage.MessageParts.RelatedPartCount)+']');
 

 for ass:=0 to int do begin

 Memo1.Lines.Add(IdMessage.MessageParts.Items[ass].ContentType);


 end;
 Memo1.Lines.Add(#13+'aca va el mensaje \/');
 Memo1.Lines.Add('RelatedPartCount ['+IdMessage.Body.Text+']');
 Memo1.Lines.Add(#13+'aca va el mensaje /\');
end;