相关疑难解决方法(0)

我希望我的表格在06:00,12:00和24:00结束时关闭.但在关闭之前,我想显示一个进度条,显示表单关闭前剩余的时间(当进度条达到100%时 - 表单关闭).我怎样才能做到这一点？

编辑:我这样做:

procedure TMainForm.Timer1Timer(Sender: TObject);
begin
Timer1.Enabled := False;
 AdvOfficeStatusBar1.Panels[4].Progress.Position := AdvOfficeStatusBar1.Panels[4].Progress.Position +1;
 if AdvOfficeStatusBar1.Panels[4].Progress.Position = 100 then begin
 MainForm.Close;
 end;
 Timer1.Enabled := True;
end;

所以我需要的可能是另一个计时器,它可以检测当天的时间并在指定的时间点击进度条(Timer1.Enabled:= True;).你如何在代码中检测到合适的时间？