TDate和TDateTime

写一个比较日期的函数，以为日期类型就是TDate，可是编译时老提示出错，把TDate改为TDatetime后问题解决！

function CheckCloseAccount(tDate: TDatetime;
  var szDate: string): Boolean;
var
  szDateK: string;
begin
  szDateK := GetSysValue('CloseAccountCN');
  if szDateK <> '' then
  begin
    if tDate <= StrToDate(szDateK) then
      Result := False
    else
      Result := True;
  end
  else
    Result := True;

  szDate := szDateK;
end;