for y := 0 to frmMain.Image1.Height - 1 do begin
    RowBMP := BMP.Scanline[y];
    for x := 0 to frmMain.Image1.Width-1 } do begin
      Grayscale := (0.299 * RowBMP[x].rgbtRed) + (0.587 * RowBMP[x].rgbtGreen) + (0.114 * RowBMP[x].rgbtBlue);
      if GrayScale >= 0.5
       then
        begin
         FImageArray[x, y] := 0;
        end
      else
       begin
        FImageArray[x, y] := 1;

       end;
    end;


  end;

 if FImageArray[x,y] = 0 then VerticalColorsArray[y] := true;

 ---------------------------
Debugger Exception Notification
---------------------------
Project prj_recognized_market.exe raised exception class EAccessViolation with message
 'Access violation
 

SetLength(FImageArray, BMP.Width, BMP.Height);