über pop3 Mails abfragen?

[gandime]

Hi,
ich habe mach ziemlich nah am Indy Beispiel gehalten:

Delphi-Quellcode:

  POP.Host:='pop.web.de';
  POP.Username:='aaa';
  POP.Password:='bbb';
  POP.Connect;
  if pop.Connected then
  begin
    i_mails:=POP.CheckMessages;
    if i_mails > 0 then
    begin
      sl_mail:=tstringlist.create;
      for I := 1 to i_mails do
      begin
        Msg.Clear;
        POP.RetrieveHeader(i,Msg);
          Msg.MessageParts.Count;
          for ii := 0 to Pred(Msg.MessageParts.Count) do
          begin
            application.processmessages;
            if Msg.MessageParts.Items[ii] is TIdText then
            begin
//              Memo1.Lines.Clear;
              Memo1.Lines.AddStrings(TIdText(Msg.MessageParts.Items[ii]).Body);
            end;
          end;
      end;
    end
    else
    begin

    end;
  end;
end;

Wo ist mein fehler?
Im Beispiel funktioniert es einwandfrei und bei meinem Code landet in dem Memo nicht!

mfg
gandime