TSL程序的基本构成是函数定义体，一个函数定义体中可包含有多个的函数。函数是TSL程序的
  最小可执行的单元，函数的基本结构如下：
  Function FunctionName([Param1,Param2…]);
  {函数申明头，在关键字Function后带有函数名称，函数名称的后面带有括号对，其中可带有参数。
  }
  Begin //用Begin作为函数开始标志。
  Statement;
  [Statement;
  ……
  Statement;]
    //函数体，可包括多个语句段。
  End; //用End作为函数的结束标志。
  例子1、下面是一个最简单的显示当天日期的函数例子：
  Function HelloTSL();
  Begin
     dToday := Date(); //将函数Date返回的值赋值给变量dToday
     strToday := 'Hello ,today is' + DateToStr(dToday) + '!';
     //调用函数DateToStr将dToday转换为字符串并合成输出串赋值给//strToDay
     return strToday;//返回strToday。
  End;
  本函数又可以简化为如下：
  Function HelloTSL();
  Begin
    Return 'Hello ,today is' + DateToStr(Date()) + '!';
  End;