E-Mail empfangen und in eine DB schreiben

[Alterauge]

Hallo,
soweit geht jetzt alles!

Hat vielleicht einer eine bessere Lösung?

Schritt1:

Delphi-Quellcode:

procedure TForm1.PostTimer(Sender: TObject);
var
 index : integer;
 li   : TListItem;
begin
   idpop31.Connect;
   if Idpop31.CheckMessages = 1 then
   for index := 1 to IdPOP31.CheckMessages do
    begin
     IdPOP31.Retrieve(index,idMessage1);
     IdPOP31.Retrieve(index,idMessage1);
      li        := ListView1.Items.Add;
     li.Caption := IdMessage1.Subject;
     Memo1.Text := li.Caption;
     idMessage1.Clear;
     IdPOP31.Delete(index);
  IdPOP31.Disconnect;
  end else begin
   IdPOP31.Disconnect;
end;

Schritt2:

Delphi-Quellcode:

if Memo1.Text <> '' then begin
MyTable2.Insert;
MyTable2.FieldByName('Eingang').Text:= (FormatDateTime('dd.mm.yyyy hh:nn:ss',now));
DBMemo2.Text := Memo1.Text;
DBEdit4.Text:='0 E-Mail';
MyTable2.Post;
MyTable2.Refresh;
Memo1.Clear;
ListView1.Clear;

soweit geht jetzt alles !