1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:

function Convert32ToGray( t: TColor ): TColor;
var
b: byte; //Helligkeit
begin
b := (((t shr 16) and $FF)+((t shr 8) and $FF)+(t and $FF)) div 3;
Result := (b shl 16) or (b shl 8) or b;
end;

procedure GrayBMP( bmp: TBitmap );
var
colors: PIntegerArray;
x, y, height, width: word;
Index: integer;
begin

height := bmp.height;
width := bmp.width;
colors := bmp.scanline[heigth-1];

for y := 0 to heigth-1 do
begin
for x := 0 to width-1 do
begin
index := ((height-y)*(width))+x;
colors^[index] := Convert32ToGray(colors^[index]);
end;
end;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

procedure GrayBMP( bmp: TBitmap ); 
var 
  colors: PIntegerArray; 
  index: integer; 
  len: integer;
  b: byte;
begin 
  Len  (bmp.Height - 1) * (bmp.Width - 1);
  colors := bmp.scanline[bmp.Heigth-1]; 
  for index := 0 to  len do
  begin
    b := (((colors^[index] shr 16) and $FF)+
             ((colors^[index] shr 8) and $FF)+
              (colors^[index] and $FF)) div 3; 
    colors^[index] := (b shl 16) or (b shl 8) or b;  end;
  end;
end;