[C++ Error] Unit1.cpp(14): E2251 Cannot find default constructor to initialize base class 'TForm'

#include <io.h>
#include <stdio.h>
#pragma pack(1) 
 
struct FileHeader 
{
    WORD bfType;        //тип файла
    DWORD bfSize;       //размер файла в dword
    WORD bfReserved1;   //не используется
    WORD bfReserved2;   //не используется
    DWORD bfOffbits;    //смещение данных битового образа от заголовка в байтах
};
 
struct MAPINFO 
{
    DWORD Size;         //число байт, занимаемых структурой InfoHeader
    DWORD Width;        //ширина битового образа в пикселях
    DWORD Height;       //высота битового образа в пикселях
    WORD Planes;        //число битовых плоскостей устройства
    WORD BitCount;      //число битов на пиксель
    DWORD Compression;  //тип сжатия
    DWORD SizeImage;    //размер картинки в байтах
    long XPelsPerMeter; //горизонтальное разрешение устройства, пиксель/м
    long YPelPerMeter;  //вертикальное разрешение устройства, пиксель/м
    DWORD ClrUsed;      //число используемых цветов
    DWORD ClrImportant; //число "важных" цветов
};
 
struct RGBquad 
{
    byte rgbRed;          //интенсивность красного
    byte rgbGreen;        //интенсивность зеленого
    byte rgbBlue;         //интенсивность голубого    
    byte rgbReserved;     //не используется
};
 
class Bmp
{
private:
    void *pBmp;
    long SizeFile;
public:
    Bmp();
    ~Bmp();
    void Open(char* fn);
    void Save(char* fn);
    FileHeader *GetFH();
    MAPINFO *GetMapInfo();
    RGBquad *GetMap();
};
 
void Bmp::Save(char* fn)
{
        FILE* File;
        File=fopen(fn,"wb");
        fwrite(pBmp,1,SizeFile,File);
        fclose(File);
}
 
RGBquad *Bmp::GetMap()
{
    RGBquad *rgb;
    rgb=(RGBquad *)((long)pBmp+sizeof(FileHeader)+sizeof(MAPINFO));
    return rgb;
}
 
MAPINFO *Bmp::GetMapInfo()
{
    MAPINFO *mi;
    mi=(MAPINFO*)((long)pBmp+sizeof(FileHeader));
    return mi;
}
 
FileHeader *Bmp::GetFH()
{
    FileHeader *fh;
    fh=(FileHeader *)pBmp;
    return  fh;
}
 
Bmp::Bmp()
{
    pBmp=0;
    SizeFile=0;
}
 
Bmp::~Bmp()
{
    delete []pBmp;
}
 
void Bmp::Open(char* fn)
{
    FILE* File;
        int hFile;
        File=fopen(fn,"rb");
        hFile=_fileno(File);
        SizeFile=filelength(hFile);
        pBmp=(BYTE*)malloc(SizeFile);
        fread(pBmp,1,SizeFile,File);
        fclose(File);
}

//---------------------------------------------------------------------------
#include <vcl.h>
#include "bmp.h"
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
    Bmp New;
  FileHeader *fh;
  MAPINFO *mi;
  RGBquad *rgb;
  New.Open("CAT16.BMP");
  fh=New.GetFH();
  mi=New.GetMapInfo();
  rgb=New.GetMap();
  rgb[256].rgbBlue=255;
  rgb[256].rgbGreen=0;
  rgb[256].rgbRed=0;
  int SR;
  for (int i=0; i<256; i++)
  {
  SR=(rgb[i].rgbBlue+rgb[i].rgbGreen+rgb[i].rgbRed)/3;
  rgb[i].rgbBlue=SR;
  rgb[i].rgbGreen=SR;
  rgb[i].rgbRed=SR;
  }
}
/* COMMENT!!!!
New.Save("CAT16-new.BMP");
 
String  str="",temp;
        str=str+"ширина = "+IntToStr(mi->Width)+"\r\n";
        str=str+"высота = "+IntToStr(mi->Height)+"\r\n";
        str=str+"число бит = "+IntToStr(mi->BitCount)+"\r\n";
        str=str+"тип сжатия = "+IntToStr(mi->Compression)+"\r\n";
        str=str+"число байт = "+IntToStr(mi->Size)+"\r\n";
        Memo1->Lines->Text ="   **********  ";
        Memo1->Lines->Add(str);
        Image1->Picture->LoadFromFile("CAT16-new.bmp");
}
*/
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{
    CBmp New;
    FileHeader *fh;
    MAPINFO *mi;
    RGBquad *rgb;
    New.Open("CAT16.BMP");
    fh=New.GetFH();
    mi=New.GetMapInfo();
    rgb=New.GetMap();
    rgb[256].rgbBlue=255;
    rgb[256].rgbGreen=0;
    rgb[256].rgbRed=0;
    int SR;
    for (int i=0;i<256;i++){
        SR=(rgb[i].rgbBlue+rgb[i].rgbGreen+rgb[i].rgbRed)/3;
        //255 îòòåíêîâ ñåðîãî
            rgb[i].rgbBlue=SR;
            rgb[i].rgbGreen=SR;
            rgb[i].rgbRed=SR;
    }
    New.Save("CAT16_.BMP");
 
    String str="",temp;
        str=str+"width="+IntToStr(mi->Width)+"\r\n";
        str=str+"heigth="+IntToStr(mi->Height)+"\r\n";
        str=str+"bit="+IntToStr(mi->BitCount)+"\r\n";
        str=str+"Compress="+IntToStr(mi->Compression)+"\r\n";
        str=str+"Size="+IntToStr(mi->Size)+"\r\n";
        Memo1->Lines->Text ="    Îáðàáîòàííîå èçîáðàæåíèå";
        Memo1->Lines->Add(str);
        Image1->Picture->LoadFromFile("CAT16_.bmp");
 
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::FormCreate(TObject *Sender)
{
     Image1->Picture->LoadFromFile("CAT16.bmp");
}
 
//---------------------------------------------------------------------------

void __fastcall TForm1::FormCreate(TObject *Sender)
{
     Image1->Picture->LoadFromFile("CAT16.bmp");
}

  Edit1->Text = mi->SizeImage;

__int64 GetBigFileSize(char*path)
{
HANDLE h=CreateFile(path,GENERIC_READ|GENERIC_WRITE,0,NULL,OPEN_EXISTING,0,NULL);
if(h!=NULL)
        {
        ULONG sizel=0;
        ULONG sizeh=0;
        sizel=GetFileSize(h,&sizeh);
        __int64 result=sizeh;
        result=result<<32;
        result=result|sizel;
        CloseHandle(h);
        return result;
        }else
        {
        return -1;
        }
}
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
ShowMessage(IntToStr(GetBigFileSize("F:\\Games\\ДИСКИ\kotor\\KotOR\\KotOR.mdf")));
}
//---------------------------------------------------------------------------

Edit4->Text = IntToStr(GetBigFileSize("gvozdika_new.bmp"));