1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

procedure TDatenbankVerwaltung.Timer1Timer(Sender: TObject);
var Stunde: Word;
    Minute: Word;
    Sekunde: Word;
    MilliSekunde: Word;
begin
ShowMessage('Timer ausgelöst');
 DecodeTime(now(), Stunde, Minute, Sekunde, MilliSekunde);
 if chbAktiv1.Enabled then
 begin
     if meStartzeit1.Text = intToStr(Stunde) + ':' + intToStr(Minute) then
     begin
     Timer1.Enabled := false;
     Timer1.Enabled :=true;
     Backup(edtDBNameZP.Text, edtDateiname1.Text);
     end;
 end;					

1:

   if Zeitpunkt < Now then begin					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

type
  TEventRecord = Record
    Anwendung  : ANSIString; // Brauche ich für ein ShellExecute. Du könntest dort eintragen, was du machen möchtest
    StartDatum : TDate; // Brauche ich zur internen Verwaltung
    StartZeit  : TTime; // Brauche ich zur internen Verwaltung
    Zeitpunkt  : TDateTime; // Eigentlich das einzige, was du benötigst
  end;

Var
  EventArray : Array [0..5] of TEventRecord;
// oder:
  EventArray : Array [0..5] of TDateTime;
// Dann brauchst du den obigen Record gar nicht.