Не запускается программа, ошибка EAccessViolation

//---------------------------------------------------------------------------
 
#include <vcl.h>
#include<iostream>
#include <iostream.h>
#include <stdlib.h>
#include <fstream>
#include <string.h>
#include <cstdlib.h>
#include <jpeg.hpp>
#pragma hdrstop
#include "Windows.h";
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
#pragma warn -8018
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
 
{
 
}
//---------------------------------------------------------------------------
 
// find_error.cpp : Defines the entry point for the console application.
//
 
using namespace std;
TJPEGImage *jpeg = new TJPEGImage;
Graphics::TBitmap *bmp = new Graphics::TBitmap;
 
int img_size = 0;
int max_text_size = 0;
int text_size = 0;
int WIDTH = Form1 -> Image1->Picture->Width;
int HEIGHT = Form1 -> Image1->Picture->Height;
 
TPoint GetPosition(TPoint Point, int Shag, int Width)
/* Функция определяет следующую координату пиксела, который будет кодироваться
   TPoint Point - предыдущая координата
   Shag - шаг кодирования
   Width - ширина Битмапа
*/
{  TPoint REZ;
   REZ.y += Point.y;
 
int BUF = Width - Point.x - Shag;
 
if (BUF <= 0) {
                REZ.y++;  BUF = abs(BUF);
                while (BUF >= Width)
                {BUF -= Width; REZ.y++;}
              }
              else BUF = REZ.x + Width - BUF;
REZ.x = BUF;
 
return REZ;
}
 
int GetBitValue(BYTE B, int N)
/* Получает значение N-ого бита в байте B
   Возвращает 1 или 0 (в зависимости от значения Бита)
*/
{ int k = 256;
 
      for (int i = 0; i < N; i++) k /= 2;
 
      if ((B & k) != 0) return 1;
      else return 0;
}
 
BYTE BinaryToByte (int *mass)
/* Собирает из массива битов один целый байт и возвращает его.
   Входной параметр: массив из восьми элементов, соответствующих
   битам Байта
*/
{
            BYTE Mask   = 00000001;
            BYTE Result = 00000000;
            BYTE Mask2;
 
            int j = 0;
            for (int i = 7; i > -1; i--, j++)
            {
              if (mass[i] == 1)  {Mask2 = (Mask << (j));
                                  Result = Result|Mask2;
                                  }
            }
            return Result;
}
 
BYTE ReadBitToByte (int Bit, BYTE B)
/* Записывает в байт B на последнюю позицию бит Bit
*/
{
     BYTE A = 00000001;
     BYTE Result = B;
 
     if (Bit == GetBitValue(B,8)) return B;
        else if (Bit == 1) return Result = Result|A;
             else if (Bit == 0) return B - A;
 
             return NULL;
}
 
void __fastcall TForm1::Button2Click(TObject *Sender)
{
OpenDialog1->Filter = "All (*.bmp;*.jpeg;*.jpg;*.gif;*.png;)|*.bmp;*.jpeg;*.jpg;*.gif;*.png;";
if (OpenDialog1->Execute()) Image1->Picture->LoadFromFile(OpenDialog1->FileName);
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button3Click(TObject *Sender)
{
bmp = Image1->Picture->Bitmap; // загоняем изображение в переменную
bmp -> PixelFormat = pf24bit; // устанавливаем глубину цвета в 24 bit
max_text_size = img_size/8;
 
int Shag = max_text_size/text_size;
char *String = new char[Form1 -> Edit1->Text.Length()+1];// создаем переменную для хранения кодируемого текста
strcpy(String,Form1 -> Edit1->Text.c_str()); // копируем в нее кодируемый текст
 
TPoint Next;    // позиция следующего кодируемого пиксела
TPoint First;   // позиция кодированного пиксела
BYTE TextByte;  // переменная для хранения символа
 
for (int i = 0; i < text_size; i++)  // перебор символов
    {
         TextByte = String[i]; // загоняем очередной символ
 
         for (int j = 0; j < 8; j++) // перебор битов символа
            {
             Next = GetPosition(First, Shag, WIDTH);
 
             TColor COLORR = bmp->Canvas->Pixels[First.x][First.y];
 
             BYTE R=GetRValue(COLORR);    //
             BYTE G=GetGValue(COLORR);    // получили каналы
             BYTE B=GetBValue(COLORR);    //
 
             int bit = GetBitValue(TextByte, j+1); // получили записываемый бит
             R = ReadBitToByte (bit, R);         // записали jй бит в канал
 
             bmp->Canvas->Pixels[First.x][First.y] = RGB(R,G,B);  // переопределили цвет
 
             First = Next;
            }
    }
Form1->Label5->Caption = Shag;
Form1->Label6->Caption = text_size;
 
SaveDialog1->Execute();
if (SaveDialog1->FileName != "") bmp->SaveToFile(SaveDialog1->FileName);
 else
   {
     MessageBox(NULL, "Изображение не сохранено...", "Ошибка!", MB_OK | MB_ICONERROR);
     return;
   }
 
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Close();
}
//---------------------------------------------------------------------------

...
int WIDTH = Form1 -> Image1->Picture->Width;  
int HEIGHT = Form1 -> Image1->Picture->Height;
...

...
int WIDTH = 0;  
int HEIGHT = 0;
...
void __fastcall TForm1::FormShow(TObject *Sender)
{
WIDTH = Image1->Picture->Width;
HEIGHT = Image1->Picture->Height;
}