[ApxaHGe1]

Всем Хай!
дело такое.. делаю программу... обычная проверка рор3 на наличие новых писем, решил привязать к программе просмотр писем (нового входящего)
получаю тему, отправителя все нормально, но вот не могу получить сам текс письма, пытюсь письмо загрузить в Мемо1. вот пришло мне письмо пытаюсь посмотреть но в Мео1 такой текст "This is a multi-part message in MIME format." подскажите в чем проблема?

Выдержка из кода:

Код:

NewMgs:=IdPOP31.CheckMessages;
CoolTrayIcon1.Icon.LoadFromFile('Valueadd\Get.ico');
CoolTrayIcon1.Hint:='Checking Mail';
if NewMgs > 0 then begin
for i:=1 to NewMgs do
IdPOP31.Retrieve(NewMgs, IdMessage1);
sub:=IdMessage1.Subject;
CoolTrayIcon1.IconVisible:=True;
CoolTrayIcon1.Icon.LoadFromFile('Valueadd\NewMsg.ico');
ListBox1.Items.Add('['+IntToStr(lt.wHour)+':'+IntToStr(lt.wMinute)+':'+IntToStr(lt.wSecond)+'] : '+'You Get a New Message!');
ListBox1.Items.Add('['+IntToStr(lt.wHour)+':'+IntToStr(lt.wMinute)+':'+IntToStr(lt.wSecond)+'] : '+'Subject "'+DecodeStr (Sub)+'"');
CoolTrayIcon1.Hint:='You Have New Message'+#13+'Subject "'+DecodeStr (Sub)+'"';
GetLocalTime(lt);
ListBox1.Items.SaveToFile('Logs\Logs.txt');
                   ////Form5.Edit1.Text:=DecodeStr(IdMessage1.Subject);
                   ////Form5.Edit2.Text:=DecodeStr(IdMessage1.From.Address);
Form5.Memo1.Clear;
idMessage1.ContentType:='multipart/mixed';
Form5.Memo1.Lines.Text:=IdMessage1.Body.Text;
IdPOP31.Disconnect;