Проблема с IdPop3

[RuVarez]

Привет всем!
Есть такой код:

procedure TForm1.Button1Click(Sender: TObject);
var i,i2 : Integer;
FA,Su : String;
begin
IdPOP31.UserId := Edit2.Text;
IdPOP31.Password := Edit3.Text;
IdPOP31.Host := Edit1.Text;
try
IdPOP31.Connect;
except
end;

for I := Strtoint(Label2.caption) + 1 to IdPOP31.CheckMessages do
begin
IdPOP31.Retrieve(I,IdMessage1);
FA := IdMessage1.From.Address;
SU := IdMessage1.Subject;

for i2 := 0 to IdMessage1.MessageParts.Count  do
begin
  if (IdMessage1.MessageParts.Items[i2] is TIdAttachment) then
  begin //general attachment
    TIdAttachment(IdMessage1.MessageParts.Items[i2]).SaveToFile(
      SaveEdit.Text + '1C.zip');
    TIdAttachment.Create(IdMessage1.MessageParts,
      SaveEdit.Text + '1C.zip');
  end;

end;

end;
Label2.Caption := Inttostr(IdPOP31.CheckMessages);
IdPOP31.Disconnect;

end;

Выдает ошибку

List index out of bounds 3

[Пепел Феникса]

for i2 := 0 to IdMessage1.MessageParts.Count  do

я сейчас буду матерится.
последний элемент это count-1, индексация с нуля.
цикл делаем до count-1

[RuVarez]

Да, извините.Ну а так все вроде правильно?

[RuVarez]

Все короче уже сам разобрался в остальном!!!