Add(Button,844782,168,112)
{
 Left=305
 Top=180
 link(onClick,11632214:doSearch,[])
}
Add(Message,3913834,308,112)
{
 link(Message,11632214:Size,[(314,100)(276,100)(276,156)(237,156)])
}
Add(FileSearch,11632214,224,112)
{
 Ext="pagefile.sys"
 Dir="c:"
 SubDir=1
 link(onSearch,3913834:doMessage,[])
}

#pas
  _WIN32_FIND_DATAA = record
    dwFileAttributes: DWORD;
    ftCreationTime: TFileTime;
    ftLastAccessTime: TFileTime;
    ftLastWriteTime: TFileTime;
    nFileSizeHigh: DWORD;
    nFileSizeLow: DWORD;
    dwReserved0: DWORD;
    dwReserved1: DWORD;
    cFileName: array[0..MAX_PATH - 1] of AnsiChar;
    cAlternateFileName: array[0..13] of AnsiChar;
  end;

Caption="Размер в байтах"