一个格式转换的问T，

一个格式转换的问T，，，，高手请进。。。。。。。
Function   GetHDSerialNumber(Drv   :   String):   String;//得到硬盘的序列号
var
    VolumeSerialNumber   :   DWORD;
    MaximumComponentLength   :   DWORD;
    FileSystemFlags   :   DWORD;
begin

    if   Drv[Length(Drv)]   = ': '   then   Drv   :=   Drv   +   '\ ';

    GetVolumeInformation(pChar(Drv),
                                              nil,
                                              0,
                                              @VolumeSerialNumber,
                                              MaximumComponentLength,
                                              FileSystemFlags,
                                              nil,
                                              0);

    Result   :=   IntToStr(VolumeSerialNumber);   ///?????????
end;
我想在Edit7.Text:=IntToStr(GetHDSerialNumber);　
中调用显示在窗口上，但总是报错：
[Pascal   Error]   GetInfoMAIN.pas(211):   E2035   Not   enough   actual   parameters
[Pascal   Fatal   Error]   GetSystemInfo.dpr(6):   F2063   Could   not   compile   used   unit   'GetInfoMAIN.pas '


为什么啊？、？？高手指教一下，谢谢。。。。。。。。。。。。

[解决办法]
Function GetHDSerialNumber(Drv : String): String;//得到硬盘的序列号
Edit7.Text:=IntToStr(GetHDSerialNumber);　//你不觉得缺点什么吗？
Edit7.Text:=IntToStr(GetHDSerialNumber( '这里要填参数 '));　

==================================
以下内容纯属广告，不可能雷同
e族百变桌面－－特效更换桌面壁纸，丰富的网上资源支持，
Flash桌面，视频桌面……让您的桌面动起来！
http://www.popolong.com
==================================