DELPHI time trigger event!

1 procedure TForm1.Timer2Timer (Sender: TObject );
2 // delphi time trigger event
3 var
4 S, D: TDateTime;
5 ActiveHH: string; // trigger hour
6 ActiveMM: string; // trigger score
7 ActiveSS: string; // trigger second
8 begin
9 s: = strtodatetime (FormatDateTime ('hh: mm: ss', Now); // time
10
11 ActiveHH: = Edit3.Text; // hour
12 ActiveMM: = Edit4.Text; // minute
13 ActiveSS: = Edit5.Text; // second
14
15
16 D: = strtodatetime (ActiveHH + ':' + ActiveMM + ':' + ActiveSS); // to time
17
18 // triggered on the current day
19 if FormatDateTime ('yyyy-MM-DD ', DateTimePicker2.date) = FormatDateTime ('yyyy-MM-DD', now) then
20 begin
21 if s = d then // triggered at the same time
22 begin
23 showmessage ('the computer is exploding! ');
24 // in the middle, you add the database statement you want to execute.
25 end;
26 end;
27
28 end;