Email abrufen und löschen. Probleme :-(

[DaveRidge]

Hallo, ich habe folgendes Problem was ich einfach nicht lösen kann.
Das Prog soll nur bestimmte emails abrufen, z.b.: Betreff: "USER ID blabla", und gleich löschen.
Ich habs bis hierhin geschafft:

Delphi-Quellcode:

procedure TForm4.Button1Click(Sender: TObject);
begin
Memo1.Clear;
edit1.Clear;
  try
    IdPOP31.Host :='pop.gmx.net';
    IdPOP31.Userid:='xxxx';
    IdPOP31.Password:='xxxx';
    IdPOP31.Connect;

    IdMessage1.NoDecode := true;

    if IdPOP31.Retrieve(1, IdMessage1) then
       begin
    if Form4.IdMessage1.Subject=('USER ID BlaBla') then begin
       Memo1.text:=(idMessage1.Body.GetText);
       Edit1.Text:=(idMessage1.From.Name);
       end
       end

finally

    IdPOP31.Disconnect;
  end;
end;
end.

Jetzt ist die Frage wie man die Email mit dem Betreff vom Server löscht.
Hab Ihr noch ein Tipp?
MfG dave

[rollstuhlfahrer]

wie wärs mit IdPop31.Delete(1)??

Bernhard

[DaveRidge]

Zitat von rollstuhlfahrer:

wie wärs mit IdPop31.Delete(1)??

Bernhard

Hi, das habe ich schon probiert, aber löscht nie die richtige. Wenn zwei drinne sind, dann löscht er meistens die zweite mail, die aber noch nicht gelesen wurde.
MfG Dave