I had this program so I just copied
long FileSize (FILE *stream)
{
long length, curpos;
fseek (stream, 0L, SEEK_END);
length = ftell(stream);
fseek (stream, 0L, SEEK_SET);
return length;
}
//----------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
FILE *handle;
AnsiString Nombre = FileListBox1->FileName;
AnsiString Tamanio;
handle = fopen(Nombre.c_str(), "r"

;
Tamanio = AnsiString (FileSize (handle));
Nombre = StrCat (Tamanio.c_str(), " Bytes"

;
Label1->Caption = Nombre.c_str();
fclose(handle);
}
I hope it help you