[FideRosado]

he usado estas lineas para el RETR, pero me sigue dando un error
que dice :

//////////////////////////////////////////////////////////////////
/// Unrecognized POP3 Responce Header: ///
/// " ///
/// " ///
/////////////////////////////////////////////////////////////////

Código Delphi [-]
procedure TfrmMain.IdPOP3Server1RETR(ASender: TIdCommand; AMessageNum: Integer);
var
menssage:TStringList;
begin

 // Cliente inicia la recuperación de cada mensaje mediante la emisión de un comando RETR
 // Al servidor. Servidor responderá + OK y continuará enviando
 // Mensaje en sí mismo. Cada mensaje se guarda en una base de datos a la llegada uppon
 // Por servidor smtp y ahora se entrega al agente de correo de usuario por el servidor pop3.
 // Aquí no leemos el correo de un almacenamiento, sino que entregamos una muestra
 // Mail desde el programa en su interior. Podemos entregar múltiples mails usando
 // Este método. Formato del comando RETR es algo así como
 // RETR 1 o 2 RETR etc

 menssage:= TStringList.Create;
 menssage.LoadFromFile(ExtractFilePath(Application.ExeName)+ '\1.msg');

        with ASender.Thread.Connection do begin
          WriteLn('+OK '+ IntToStr(Length(menssage.Text))+ ' octets');
          WriteLn(menssage.Text);
          WriteLn('.');
        end;
        menssage.Free;

end;