Найдите ошибку

procedure DrawBGRAOnBitmap(Bitmap: TBitmap; bgr: Pointer; xStart, yStart, xFinish, yFinish: Integer);
var
 X, Y: Integer;
 pColor: PByteArray;
 alpha: real;
 Data: PByte;
begin
Data:=bgr;
 for Y:=yStart to yFinish - 1 do
  begin
   pColor:=Bitmap.ScanLine[Y];
    for X:=xStart to xFinish - 1 do
     begin
      case Data^ of
       0: begin end;
       255: begin
                   inc(Data);
                  pColor[X * 4]:= Data^;
                   inc(Data);
                  pColor[X * 4 + 1]:= Data^;
                   inc(Data);
                  pColor[X * 4 + 2]:= Data^;
                   inc(Data);
           end
         else
         begin
       alpha:=Data^ / 255;
         inc(Data);
       pColor[X * 3]:=Round(Data^ * alpha + pColor[X * 4] * (1 - alpha));
         inc(Data);
       pColor[X * 3 + 1]:=Round(Data^ * alpha + pColor[X * 4 + 1] * (1 - alpha));
         inc(Data);
       pColor[X * 3 + 2]:=Round(Data^ * alpha + pColor[X * 4 + 2] * (1 - alpha));
         inc(Data);
         end;
     end;
    end;
   end;
  end;