Fórum Baixar arquivos do Gmail #343735

Instalei o Indy 10.1.5 no meu Delphi 7 com o instlador do Atozed.
Estou conseguindo conectar o gmail com:
IdSSLIOHandlerSocketOpenSSL
IdPOP3
IdMessage
Problema: Não consigo baixar arquivos com o código abaixo, o que está errado?

Peço ajuda.



procedure TF_principal.BB_baixarClick(Sender: TObject);
var
i,n,cont : integer;
ArqAnexo : string;
begin
//Conectar email.
POP.Host := ´pop.gmail.com´;
POP.Username := ´usuário´;
POP.Password := ´senha´;
try
POP.Connect;
except
MessageBox(0,´Sem conexão´,´ATENÇÃO!´,MB_DEFBUTTON1);
exit;
end;
n := POP.CheckMessages;
for i:= 0 to n-1 do
begin
MES_r.Clear;
POP.Retrieve(i,MES_r);
MES_ra.Clear;
POP.Retrieve(i, MES_ra);
for cont := 1 to Pred(MES_ra.MessageParts.Count) do
begin
if ( MES_ra.MessageParts.Items[cont] is TIdAttachment) then
begin
ArqAnexo := ´caminho´ + TIdAttachment(MES_ra.MessageParts.Items[cont]).filename;
TIdAttachment(MES_ra.MessageParts.Items[cont]).SaveToFile(ArqAnexo);
end;
end;
end;
POP.Disconnect;