ShowMessage mit Hilfe eines XML Eintrags

[Akut-Programming]

Hi!!!

Ich will in meinem Prog, was dann ma n Terminplaner darstellen soll 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.

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;