delphi根据数据库服务器时间来限制软件使用的问题，请教！

Question

代码如下，单击button，根据数据库服务器时间来限制软件使用时间！程序可以运行！但是结束的时候报错！请高手帮忙看看错在哪里？感谢！！
procedure TForm1.Button1Click(Sender: TObject);
function  DateNow:TDateTime;
begin
with 
ADOQuery1.Create(nil)dotryconnection:=ADOconnection1;
SQL.Text:='select GetDate() as FDate';
Open;
Result:= FieldValues['FDate'];
finallyend;
end;
begin
if  DateNow>strtodatetime('2013-05-04 22:21:00') then 
begin
showmessage('程序错误!');
application.Terminate;
end;
end;
end. 报错内容图片

Answer 1

不太清楚你说的结束报错是指进入application.Terminate结束报错。
还是DateNow合格，然后正常关闭报错。
从你代码来看，DateNow这个函数中 时间比较，格式可能有问题，跟踪查一下

Answer 2

你的单击事件执行一次则无错误产生.
两次以上则会出现你说的错误,因为重复ADOQuery1.Create(nil),所以将代码改为如下:procedure TForm1.Button1Click(Sender: TObject);
function  DateNow:TDateTime;
begin
  with ADOQuery1 do
  try
   Close;
  connection:=ADOconnection1;
  SQL.Text:='select GetDate() as FDate';
  Open;
  Result:= FieldValues['FDate'];
  finally
  end;
end;begin
  if  DateNow>strtodatetime('2013-05-08 22:21:00') then
  begin
  showmessage('程序错误!');
  application.Terminate;
  end;
end;