Email Text überprüfen

[PhilmacFLy]

K
Also ich versuch mit dem ganzen hier ein programm zu schreiben das Emails abholt den Betreff und Den text berprüft und wenn sagen wir mal im Betreff "Command" und im Text "0CBC6611F5540BD0809A388DC95A615B" steht etwas ausführt. So nun hab ich meine probleme damit das ich ja mehrere Mails bekomme und ich nicht weiss wie ich das programmiern soll das er alle mails überprüft nicht nur die eine.

Naja das is das was ich schon geschireben hab

Delphi-Quellcode:

procedure TForm2.FormCreate(Sender: TObject);
var Na: Integer;
begin
  idpop31.Connect;
  Na := idpop31.CheckMessages;
  if
    Na <> 0
  then
    begin
      for
        Na := 1 to NA
      do
        IdMessage1 := TidMessage.Create;
        idpop31.RetrieveHeader(Na, IdMessage1);
        if
          IdMessage1.Subject = 'Command'
        then

    end
  else