メールの一覧を表示するには？ (ID:36823)

名前

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

本文 質問させて頂きます。 Delphiをまだ初めてまもないのですが、メールの受信プログラムを作りたくて過去トピを拝見させて頂き、メール受信のプログラムは完成できたのですが、未読メールを一件しか読みとりません。 そこで質問なのですが、受信メールの一覧を表示してクリックするとメールを開くことができるようなプログラムを作りたいのですが、具体的なプログラムを教えて頂けないでしょうか。 私自信でも色々調べてはみたのですが、ピンポイントで書かれたものがなく分かりませんでした。 環境はDelphi7です。 メール受信のプログラムはこちらです。 procedure TForm1.btnReceptionClick(Sender: TObject); var Msg : TIdMessage; i, x: integer; s : string; begin memo1.Lines.Clear; IdPOP31.Host := '********'; IdPOP31.Port := ***; IdPOP31.Username := '******'; IdPOP31.Password := '******'; IdPOP31.Connect; for i := 1 to IdPOP31.CheckMessages do begin Msg := TIdMessage.Create(Self); IdPOP31.Retrieve(i, Msg); memBody.Lines.Add(Msg.Subject{タイトル}); memBody.Lines.Add(Msg.From.Text{送信者}); memBody.Lines.Add(datetostr(msg.Date{送信日})); //Memo1.Lines.Add(Msg.Headers.Strings[6]{送信日時}); for x := 0 to Pred(Msg.MessageParts.Count) do begin if Msg.MessageParts.Items[x] is TIdText then begin s := TIdText(Msg.MessageParts.Items[x]).Body.Text; memBody.Lines.Add(jconvert.ConvertJCode(s, SJIS_OUT)); end; end; IdPOP31.Disconnect; end; end; 初歩的な質問ですいませんが、よろしくお願いします。