//---------------------------------------------------------------------------
#include 
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
    if(OpenDialog1->Execute()){
 
        struct stati64 infFile;
        _wstati64(OpenDialog1->FileName.c_str(), &infFile);
        Memo1->Lines->Add("Rozmiar pliku: "+IntToStr(infFile.st_size));
 
    }
}
//---------------------------------------------------------------------------