unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, MemDS, DBAccess, MyAccess, ExtCtrls;
type
  TForm1 = class(TForm)
    myCn1: TMyConnection;
    myQu1: TMyQuery;
    myQu1ID: TIntegerField;
    myQu1tanggal: TDateField;
    myQu1jam: TTimeField;
    tmr1: TTimer;
    lsb1: TListBox;
    lbl1: TLabel;
    lbl2: TLabel;
    procedure tmr1Timer(Sender: TObject);
  private
    procedure mySetNextEvent(var pNextEvent: TDateTime);
    { Private declarations }
  public
    { Public declarations }
    lvNextEvent: TDateTime;
  end;
var
  Form1: TForm1;
implementation
uses DateUtils;
{$R .dfm}
procedure TForm1.mySetNextEvent(var pNextEvent: TDateTime);
var
  lvTgl: TDateTime;
  lvJam: TDateTime;
begin
  lvTgl := Now;
  lvJam := Now;
  with myQu1 do
  begin
    SQL.Clear;
    SQL.Append(
      'SELECT ' +
      'db_delphier.tb_waktu.ID, ' +
      'db_delphier.tb_waktu.tanggal, ' +
      'db_delphier.tb_waktu.jam');
    SQL.Append('FROM db_delphier.tb_waktu');
    SQL.Append(
      'WHERE ' +
      'db_delphier.tb_waktu.tanggal >= DATE(:p1) AND ' +
      'db_delphier.tb_waktu.jam > TIME(:p2)');
    SQL.Append(
      'ORDER BY ' +
      'db_delphier.tb_waktu.tanggal, ' +
      'db_delphier.tb_waktu.jam');
    SQL.Append('LIMIT 1');
    ParamByName('p1').Value := FormatDateTime('yyyy-MM-dd',Now);
    ParamByName('p2').Value := FormatDateTime('hh:nn:ss',Now);
    Prepared;
    Open;
    if RecordCount > 0 then begin
      lvTgl := FieldByName('tanggal').AsDateTime;
      lvJam := FieldByName('jam').AsDateTime;
    end else begin
      Caption := 'Tidak Ada Lagi';
      tmr1.Enabled := False;
    end;
    Close;
    (  simpan nilai untuk event berikutnya )
    pNextEvent := RecodeTime(lvTgl, HourOf(lvJam), MinuteOf(lvJam), SecondOf(lvJam), 0);
  end;
end;
procedure TForm1.tmr1Timer(Sender: TObject);
var
  lvNow: TDateTime;
begin
  (  nilai masih kosong, set nilai untuk event berikutnya *)
  if FormatDateTime('dd.mm.yyyy',lvNextEvent) = '31.12.1899' then begin
    mySetNextEvent(lvNextEvent);
  end;
  lvNow := Now;
  lbl1.Caption := 'Waktu Sekarang : ' +FormatDateTime('dd.MM.yy hh:nn:ss',lvNow);
  lbl2.Caption := 'Next Event : '+FormatDateTime('dd.MM.yy hh:nn:ss',lvNextEvent);
  if lvNow > lvNextEvent then begin
    lsb1.Items.Append('Event :' + FormatDateTime('dd.MM.yy hh:nn:ss',Now));
    mySetNextEvent(lvNextEvent);
  end;
end;
end.