Получение почты Delphi2009

[Aero1]

Подскажите кто знает как получать почту в delphi 2009
есть вот такой код но он только показывает количество писем в ящике а вот как прочесть ???

var
NumOfMsgs:Integer;  // Количество писем 
begin
try
IdPOP31.Username:='mail@mail.ru' ;  
IdPOP31.Password:='123456';
IdPOP31.Host:='pop.mail.ru';
IdPOP31.Port:= 110;
  IdPOP31.Connect;  
if IdPOP31.Connected then  
begin
NumOfMsgs := idpop31.CheckMessages; 
 
Memo1.Lines.Add
Memo1.Lines.Add('У вас '+IntToStr(NumOfMsgs)+' сообщений');
end
except 
on E:Exception do Memo1.Lines.Add('Ошибка подключения! '+E.Message);
end; 
IdPOP31.Disconnect;  
 end;

[Пепел Феникса]

RetrieveMessage+TIdMessage

[Aero1]

Спасибо, а еще не подскажете что означает эта ошибка ?

Could not compile used unit 'IdReplyPOP3.pas