function grayscaling(var gbrIn:TBitmap):TBitmap;
Var
  GbrTmp:TBitmap;
  //GbrTmpTinggi,GbrTmpLebar:Cardinal;
  Bheight,Bwidth,i,j,c,GrayVal,GrayValCount :Cardinal;
  pixArrRGB,pixArrGrey:pbytearray;
  gbrOut:TBitmap;
Begin
  GbrTmp:=TBitmap.Create;
  GbrIn.PixelFormat:=pf24bit;
  Try
    With GbrTmp Do
    Begin
    PixelFormat:=pf24bit;
    Height:=gbrIn.Height;
    Width:=gbrIn.Width;
    End;
    for i:=0 to gbrIn.height-1 do
      begin
      pixArrRGB:=gbrIn.ScanLine[i];
      pixArrGrey:=GbrTmp.ScanLine[i];
        for j:=0 to gbrIn.width-1 do
        begin
        GrayVal:=round((pixArrRGB[j3])   0.11{Blue my Man!!})+round((pixArrRGB[j3+1])   0.59{Green Cing!})+round((pixArrRGB[j3+2])   0.3{MERAH Euy!});
        pixArrGrey[j3]:= GrayVal;
        pixArrGrey[j 3+1]:= GrayVal;
        pixArrGrey[j3+2]:= GrayVal;
        GrayValCount:=GrayValCount+GrayVal;//
        c:=c+1;     // 
        end
    end;
    GbrTmp.PixelFormat:=pf8bit;
    grayscaling:=GbrTmp;
  Finally
  //GbrTmp.Free;
  End;
End;
function binerisasi(var gbrIn:TBitmap):TBitmap;
Var
  GbrTmp:TBitmap;
  GbrTmpTinggi,GbrTmpLebar:Cardinal;
  Bheight,Bwidth,i,j,c,GrayVal,GrayValCount :Cardinal;
  pixArrBin,pixArrGrey:pbytearray;
  gbrOut:TBitmap;
Begin
  GbrTmp:=TBitmap.Create;
  GbrIn.PixelFormat:=pf8bit;
  Try
    With GbrTmp Do
    Begin
    PixelFormat:=pf1bit;
    Height:=gbrIn.Height;
    Width:=gbrIn.Width;
    End;
    for i:=0 to gbrIn.height-1 do
      begin
      pixArrGrey:=gbrIn.ScanLine[i];
      pixArrBin:=GbrTmp.ScanLine[i];
        for j:=0 to gbrIn.width-1 do
        begin
          if pixArrGrey[j]>=128then
            begin
              pixArrBin[j div 8]:=1;
              //gbrOut.Canvas.Pixels[i,j]:=255;
              //pixArrBin[j 3+1]:= 255;
              //pixArrBin[j3+2]:= 255;
            end
            else
              pixArrBin[j div 8]:= 0;//ColorToRGB(clBlack);;
              //gbrOut.Canvas.Pixels[i,j]:=0;
              //pixArrBin[j 3+1]:= 0;
              //pixArrBin[j*3+2]:= 0;
        end
    end;
    binerisasi:=GbrTmp;
  Finally
  //GbrTmp.Free;
  End;
End;

for j:=0 to gbrIn.width-1 do
        begin
          if pixArrGrey[j]>=128then
            begin
              pixArrBin[j div 8] := pixArrBin[j div 8] or (1 shl j mod 8);
            end
            else
              pixArrBin[j div 8] := pixArrBin[j div 8] or (0 shl j mod 8);
        end

pixArrBin[j div 8] := pixArrBin[j div 8] and not (1 shl j mod 8);