Wecker - Abruf Problem

[Z32]

Hallo,

Ich habe da eine Frage.

Also ich möchte einen Wecker programmieren. Geht auch alles schon bis auf die erweiterungs Funktion. Also der Benutzer hat die möglichkeit ein Datum einzugeben und um wieviel Uhr es an diesem Datum dann klingel soll. Beide eingaben schreibe ich getrennt in eine txt Datei. Also eine txt Datei für Datum und eine für Uhrzeit. Dann habe ich im Timer Ereignis dieses geschrieben:

Delphi-Quellcode:

procedure TForm1.Timer2Timer(Sender: TObject);
var dat, tim, datdat, timtim: string;
begin
datdat := datetostr (date);
timtim := timetostr (time);
datum.Lines.LoadFromFile('datum.txt');
uhrzeit.Lines.LoadFromFile('uhrzeit.txt');
dat := (datum.text);
tim := (uhrzeit.text);
if dat = datdat then
if tim = timtim then
sndplaysound(PChar('Glockenspiel.wav'),snd_sync);
end;

Für Erklärung: dat und tim sind die ausgelesenen Werte und datdat und timtim sind Uhrzeit und Datum real. Und datum.lines... und uhrzeit.lines... sind zwei Memo Felder, wo angezeigt werden soll, wann es klingel, also was man abgespeichert hat.

So und jetzt habe ich das Problem, dass die Werte anscheinend nicht ausgelesen werden. Es klingelt nähmlich nicht, auch wenn die Eingaben stimmen. Und ich weiß leider nicht wo es hakt.

Kann mir vielleicht einer helfen ???