Como resolver isso ?

Galera diz ai o que estar errado aqui ??? por favor!

info.:

- Criei uma tabela para receber os e-mail´s ok...
- depois criei um tipo de contador ex.: tem 10 email´s no servidor dai ele va regredindo 10,9,8..0
para baixar todos os email´s... porém esse negocio ai estar com erro alguém pode me ajudar ?

ou até mesmo enviar o código correto de receber um email ?

procedure TFrmReceberEmail.BitBtn3Click(Sender: TObject);
var
i : Integer;
begin
With SpinEdit1 do
while Value > 0 do
Begin
for i:= 1 to 500 do
NMPOP31.GetMailMessage(SpinEdit1.Value);
DD.QReceber.Append;
DD.QReceberNome_Email.Value := NMPOP31.MailMessage.From;
DD.QReceberAssunto.Value := NMPOP31.MailMessage.Subject;
DD.QReceberData.Value := NMPOP31.MailMessage.ContentType; ´Qual é o Comando Certo daqui em ??´ (#)
DD.QReceberMensagem.Assign(NMPOP31.MailMessage.Body);
DD.QReceberAnexos.Value := NMPOP31.MailMessage.Attachments.CommaText; ´Qual é o Comando Certo daqui em ??´ (#)
DD.QReceber.Post;
SpinEdit1.Value := SpinEdit1.Value - 1;
End;
end;

() = Quero que apareça o Dia, mês, ano, Hora e dia da semana !
() = Quero Pegar o anexo !
Grato!