pop3 idMessage Problem

[gandime]

Hi,
ich möchte meine eMails von einem pop3 Server aus ansehen dazu hab ich mich aus dem Indy Beispiel inspirieren lassen ;-)

Delphi-Quellcode:

procedure TForm1.Button4Click(Sender: TObject);
var
  i_mails:integer;
  I,ii: Integer;
  msg:TidMessage;
  sl_mail:tstringlist;
begin
  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;//Fehler 1
        POP.RetrieveHeader(i,Msg);
          Msg.MessageParts.Count;
          for ii := 0 to Msg.MessageParts.Count-1 do//Fehler 2
          begin
            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;
    end
    else
    begin

    end;
  end;
end;

Fehler1:

Zitat:

Erste Gelegenheit für Exception bei $76363843. Exception-Klasse EAccessViolation mit Meldung 'Access violation at address 0049B3AE in module 'Project1.exe'. Read of address B2D88B8B'. Prozess Project1.exe (4640)

Fehler2:

Zitat:

Erste Gelegenheit für Exception bei $76363843. Exception-Klasse EAccessViolation mit Meldung 'Access violation at address 0049A822 in module 'Project1.exe'. Read of address B2D88B8B'. Prozess Project1.exe (1640)

was mache ich falsch bzw was hab ich vergessen?

mfg
gandime

edit:
hab meinen fehler gefunden ich musste blos msg richtig einstellen oder die komponentente nemen ;-)