メール受信一覧について (ID:37074)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 メールの受信一覧をクリックすると，メール本文が表示されるようにしているのですが，いつも実行時にエラーが出ます。「List index out of bounds」や「Access violation at adress・・・ 」など出ます。一番古い2通のメールは表示されるのですが、3通目から本文が表示されません。 これは何なんでしょうか？ コードはこちらです。 procedure TForm1.btnReceptionClick(Sender: TObject); var i: integer; a,b,s: string; begin begin IdPOP31.Connect; a := ' 送信者：'; b := ' 件名：'; //メールの送信者，送信日，件名，本文を表示する for i := 1 to IdPOP31.CheckMessages do begin SetLength(Main,IdPOP31.CheckMessages); Msg := TIdMessage.Create(Self); IdPOP31.Retrieve(i, Msg); ListBox1.Items.Add(datetostr(msg.Date)+ a + Msg.From.Text + b + Msg.Subject); if(Msg.MessageParts.Items[0] is TIdText)then s := TIdText(Msg.MessageParts.Items[0]).Body.Text; Main[i] := jconvert.ConvertJCode(s, SJIS_OUT); end; end; IdPOP31.Disconnect; end;