如下例:
var
 Dest:TFileName;
begin
 Dest:=ExpandFileName(DestName);
 Showmessage(Dest); //怎样将TFileName类型转为String类型