[NIch]

При чем здесь база данных...БД работают с данными а не системными событиями...
Просто кинь на форму таймер поставь интервал около 60000 (минута) и

Код:

OnTimer
var
 CloseTime : TDateTime;
 RealTime : TDateTime;
begin
 RealTime := Time;
 CloseTime := StrToTime('19:00:00') ;
 if RealTime = CloseTime then
  Close;
end;

или короче

Код:

OnTimer
begin
 if DateTimePicker1.Time = Time then
  Close;
end;

Если что пиши...