时间函数在窗体中可以直接使用。如果是无窗体的还是需要声明，下面是实现对象。

program Project1;

uses
    Messages, SysUtils,Dialogs;
{$R *.res}
function MyDateTime(StartDate, EndDate, Preaching: TDateTime): Boolean;
begin
  Result:=false;
    if (Preaching>=StartDate)and(Preaching>=EndDate) then
  Result:=true;
end;
begin
  showmessage(datetostr(Now));
end.