gracias por su ayuda.
ya pude solucionarlo
me faltaba poner
Código Delphi
[-]
idpop31.Retrieve(n,mail);
el codigo quedaria asi
Código Delphi
[-]
procedure Tfppal.suiButton7Click(Sender: TObject);
var
n, nummsgs : integer;
x:integer;
begin
Memo1.Lines.Clear;
idpop31.Connect(0);
NumMsgs:=idpop31.CheckMessages;
Memo1.lines.add( 'Emails:' +IntToStr(NumMsgs) );
for n:=1 to NumMsgs do begin
idpop31.Retrieve(n,mail);
for x:=0 to Pred( mail.MessageParts.Count) do
begin
if (mail.MessageParts.Items[x] is TIdAttachment) then
begin Memo1.Lines.Add( TIdAttachment( mail.MessageParts.Items[x]).Filename);
TIdAttachment(mail.MessageParts.Items[x]).SaveToFile(ExtractFilePath(GetModuleName(hInstance)) +
TIdAttachment(mail.MessageParts.Items[x]).Filename);
end;
next;
end;
idpop31.RetrieveHeader(n,mail);
Memo1.Lines.Add( 'Email Nº:'+IntToStr(n)+' De:'+mail.From.Text+' Tema:'+mail.Subject );
mail.Clear;
end;
idpop31.Disconnect;
end;