Mail herunterladen mit IdPOP31 Problem mit dem Text

[Alterauge]

Hallo,
leider wird der Text nicht übermittelt (Memo3) der Rest geht)!

Delphi-Quellcode:

procedure TForm1.AdvGlowButton1Click(Sender: TObject);
var
 intIndex : Integer;
 TIdText : Integer;
 i, MsgAnz: Integer;
begin
 IdPOP31.Host :=' ';
 IdPOP31.Port :=  110;
 IdPOP31.Username :=' ';
 IdPOP31.Password := ' ';
 IdPOP31.Connect;
  if IdPop31.Connected then
   begin
    MsgAnz := IdPOP31.CheckMessages;
      for i:= 1 to MsgAnz do
       begin
         Idpop31.RetrieveHeader(i, IdMessage1);
         Memo1.Lines.Add('Betreff:' + IdMessage1.Subject);
         Memo2.Lines.Add('Datum:'  + DateToStr(IdMessage1.Date));
         Memo3.Lines.Add(idMessage1.Body.GetText);                // hier ist das Problem ! Es wird kein Text übermittelt
         IdMessage1.Clear;
         IdPOP31.Delete(1);
         Memo1.Clear;
         Memo2.Clear;
       end;
   end;
   IdPOP31.Disconnect;
end;