if not GetFileAttributesEx(PChar(fFileName), GetFileExInfoStandard, @fAttrData) then

Add(MainForm,15551238,245,168)
{
 Caption="Пример использования FileAttributes"
 link(onCreate,5912578:doExecute,[])
}
Add(FileAttributes,257569,392,189)
{
 Point(FileSize)
 Point(onError)
 link(onRead,3265491:doString,[(452,195)(452,234)(382,234)(382,265)])
 link(onError,2482902:doMessage,[])
}
Add(FormatStr,3265491,392,259)
{
 DataCount=3
 Mask="Date create  %1\r\nDate modif   %2\r\nSize             %3 byte"
 link(onFString,1288876:doAdd,[])
 link(Str1,257569:DateCreate,[])
 link(Str2,257569:DateModify,[(405,240)(412,240)])
 link(Str3,257569:FileSize,[(412,245)(419,245)])
}
Add(Memo,1288876,448,259)
{
 Left=10
 Top=90
 Width=365
 Height=145
 Ctl3D=1
}
Add(ODialog,5912578,301,182)
{
 link(onExecute,13000121:doEvent1,[])
}
Add(Label,3222666,392,140)
{
 Left=10
 Top=10
 Width=365
 Height=58
 Font=[MS Sans Serif,10,0,8388608,1]
 AutoSize=1
 Alignment=2
}
Add(Hub,13000121,350,182)
{
 link(onEvent1,3222666:doText,[(378,188)(378,146)])
 link(onEvent2,257569:doRead,[])
}
Add(Message,2482902,483,196)
{
}