TIDmessage!!!

[MARLON1]

Hola foro!

Tengo un problema al momento de mostrar el cuerpo del mensaje en un memo, la conexion la hago utilizando los componentes: POP31, IdSSLIOHandlerSocketOpenSSL1 e Idmessage. al al momento de conectarme esta todo bien me muestra el subject, fecha, from, pero no me muestra el cuerpo del mensaje, ya probe todos los ejemplos aqui en el foro pero en todos me sucede lo mismo espero que pueden ayudarme, gracias de antemano.

este es el codigo que utilizo. (delphi 2010)

Código Delphi [-]
var
        Password: String;
        i,no:integer;
    begin
    memo1.Lines.Clear;

  if InputQuery('Recibir e-mail', 'Contraseña', Password) then
  begin
    idpop31.Username := edit3.Text;
    idpop31.Password := Password;
    bitbtn1.Enabled:= false;

try

      idpop31.Disconnect;
      idpop31.Connect;
       no:=idpop31.CheckMessages;
       be.Caption:=IntToStr(no);


      idpop31.Retrieve(no,idMessage1);
      edit1.Text:= idMessage1.From.Text;
      edit2.Text:= idMessage1.Subject;
      label6.Caption:= DateToStr(idmessage1.Date);
      memo1.Lines.Text:=idmessage1.Body.Text;


    finally
        bitbtn1.Enabled := true;
        end;

    end;
  end;