A ver, un ejemplo menos cavernícola
Código Delphi
[-]
IdMessage1.LoadFromFile('archivo.eml');
Edit1.Text := IdMessage1.Headers.Values['To'];
Edit2.Text := IdMessage1.Headers.Values['Subject'];
Memo1.Lines.AddStrings(IdMessage1.Body);
IdMessage es un componente que viene con los
componentes Indy
Bye