怎样引用函数

Question

现自定义以下函数：
   function GetCaptialDate(ADate :TDateTime) :string;
     Const
       CAPTIALLETTER :array[0..9] of string = ('零', '壹', '贰', '叁', '肆','伍', '陆', '柒', '捌', '玖') ;
     var
       iYear, iMonth, iDay :WORD ;
       iTmp :integer;
       sStr :string ;
     begin
       DeCodeDate(ADate, iYear, iMonth, iDay) ;        sStr := '' ;
  //转换年
  //千位
       iYear := iYear mod 10000 ;   //只考虑千位的年份
       iTmp := iYear div 1000 ;
       sStr := CAPTIALLETTER[iTmp] ;  //百位
       iYear := iYear mod 1000 ;
       iTmp := iYear div 100 ;
       sStr := sStr + CAPTIALLETTER[iTmp] ;  //十位
       iYear := iYear mod 100 ;
       iTmp := iYear div 10 ;
       sStr := sStr + CAPTIALLETTER[iTmp] ;  //个位
       iYear := iYear mod 10 ;
       iTmp := iYear div 1 ;
       sStr := sStr + CAPTIALLETTER[iTmp] + '年';  //转换月
  //十位
       iTmp := iMonth div 10 ;
       if iTmp <> 0 then sStr := sStr + CAPTIALLETTER[iTmp] + '拾';  //个位
       iMonth := iMonth mod 10 ;
       iTmp := iMonth div 1 ;
       sStr := sStr + CAPTIALLETTER[iTmp] + '月';  //转换日
  //十位
       iTmp := iDay div 10 ;
       if iTmp <> 0 then sStr := sStr + CAPTIALLETTER[iTmp] + '拾';  //个位
       iDay := iDay mod 10 ;
       iTmp := iDay div 1 ;
       sStr := sStr + CAPTIALLETTER[iTmp] + '日';       Result := trim(sStr) ;
     end;
要怎样引用呀

Answer 1

type
  TGetCaptialDate=function (ADate :TDateTime) :string;Invoke(p:TGetCaptialDate)
begin
  p(...);
end;

Answer 2

procedure Tjmform.button1(Sender: TObject);
var 
ss:array[0..2] of string;
begin
ss[0]:=GetCaptialDate(1998-5-6); end;

Answer 3

var
  t : TDateTime;
  s : string
begin
  t = now;
  s = GetCaptialDate(t);
end;