Delphi-PRAXiS - Delphi ShowMessage mit Hilfe eines XML Eintrags

Hi!!!

Ich will in meinem Prog, was dann ma n Terminplaner darstellen soll :lol: eben auch ne Message anzeigen lassen. Das klappt ja auch so schon, nur kommt die Message nicht nur einmal, sondern wird ne ganze Minute oder so neu geöffnet. :roll:

Das Problem wollt ich damit lösen, das ich zum jeweiligen Termin beim speichern den Eintrag setze, das der Termin noch "nicht gemeldet" wurde.
Diesen wollt ich dann immer im Timer mit abfragen - Doch klappt das nich so... :| Hier ist ma mein Source vom Timer:

Delphi-Quellcode:

			procedure Tfrm_terminplaner_main.Timer2Timer(Sender: TObject); 

var

  i: integer;

  node: IXMLDOMNode;

  newTermin, newSub: IXMLDOMNode;

begin

    for i:=0 to lv_eintraege.Items.Count - 1 do begin

    node :=xmlDoc.selectSingleNode('/PlanView/termin[terminid="'+IntToStr(i)+'"]');

      if (StrtoDate(lv_eintraege.Items[i].SubItems[1])=date)

      and (StrtoTime(lv_eintraege.Items[i].SubItems[2])= time)

      and (node=xmlDoc.selectSingleNode('/PlanView/termin[AlertShowed="''"]'))

      then begin

        ShowMessage('Ihr Termin ('+lv_eintraege.Items[i].SubItems[0]+') beginnt!');

        newTermin := xmldoc.createElement('termin');

        newSub := xmlDoc.createElement('AlertShowed');

        newSub.text :='x';

        newTermin.appendChild(newSub);

      end;

    end;

end;