Tag aus Datum mit Tag aus Record vergleichen

[grader]

Guten Abend!

Programmiere für den Informatikunterricht gerade einen Terminplaner und plage mich jetzt schon seit einiger Zeit mit einem Problem herum.

Und zwar habe ich ein Datum (aus dem MonthCalendar1) mit DecodeDate zerlegt und möchte jetzt den Tag mit dem im Record gespeicherten Tag ( Termin[n].Tag ) vergleichen, wenn ich auf dem MonthCalendar1 einen Tag auswähle! Bei übereinstimmung soll Label6 die Bezeichnung 1 erhalten (nur zum test, obs klappt)!

Dazu ist noch zu sagen, dass n anfangs auf "0" steht und beim speichern des ersten Termins in das Record auf "1" gesetzt wird, beim 2. auf "2" usw..

Das Problem ist jetzt, wenn ich sagen wir mal drei Termine erstelle und dann auf dem MonthCalendar die drei nacheinander anklicke setzt er das Label nur beim zuletzt eingegebenen auf "1", obwohl er doch bei den anderen beiden auch eine Übereinstimmung finden müsste

Hoffe ihr habt ne Idee, ist sicher nur ne Kleinigkeit die ich da nicht bedacht habe.. Unten der Code..

Delphi-Quellcode:

procedure TForm1.MonthCalendar1Click(Sender: TObject);
var Jahr, Monat, Tag: word; i: integer;
begin
DecodeDate(MonthCalendar1.Date.Date, Jahr, Monat, Tag);
for i := 0 to n do
  if Termin[i].Tag=Tag then
  begin
  Label6.caption:='1';
  end
  else Label6.caption:='';
end;

Thx schonmal wenns klappt wäre der Abend gerettet