1:
2:
3:
4:
5:
6:
7:
8:

  color:= fBitmap.Canvas.Pixels[fBitmapPosCounter, fBitmap.Height - i];
  r:= GetRValue(color);
  g:= GetGValue(color);
  b:= GetBValue(color);
  if fRevertColor then
    c:= 255 - ((r+b+g) div 3)
  else
    c:= ((r+b+g) div 3);					

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

procedure TPCMDrawer.ReadPictureData;
var
  i: integer;
  r, g, b, c: byte;
  color: integer;
begin
  for i := 0 to fBitmap.Height - 1 do
    begin
      color := fBitmap.Canvas.Pixels[fBitmapPosCounter, fBitmap.Height - i];
      r := GetRValue(color);
      g := GetGValue(color);
      b := GetBValue(color);
      if fReverseColors then
        c := 255 - ((r+b+g) div 3)
      else
        c := ((r+b+g) div 3);

      if c >= cIgnoreColorLower then
        fPixelData[i].Amplitude := Trunc(c / 255 * fAmplitude)
      else
        fPixelData[i].Amplitude := 0;
     end;
  Inc(fBitmapPosCounter);
end;					

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:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:

procedure TForm1.Button2Click(Sender: TObject);
type
  pixel = array[0..2] of byte;
var
  p : ^pixel;
  x, y : Integer;
  ticks : Cardinal;
begin
  ticks := GetTickCount;
  for y := 0 to Image1.ClientHeight - 1 do
  begin
    p := Image1.Picture.Bitmap.ScanLine[y];
    for x := 0 to Image1.ClientWidth do
    begin
      p^[0] := Byte(p^[0] + 100);
      p^[1] := Byte(p^[1] + 100);
      p^[2] := Byte(p^[2] + 100);
      inc(p);
    end;
  end;
  Label1.Caption := IntToStr(GetTickCount - ticks);
  Image1.Refresh;
end;

procedure TForm1.Button3Click(Sender: TObject);
var
  x, y : Integer;
  c : TColor;
  r, g, b : Byte;
  ticks : Cardinal;
begin
  ticks := GetTickCount;
  for x := 0 to Image1.ClientWidth do
    for y := 0 to Image1.ClientHeight do
    begin
      c := Image1.Canvas.Pixels[x, y];
      r := GetRValue(c);
      g := GetGValue(c);
      b := GetBValue(c);
      r := Byte(r + 100);
      g := Byte(g + 100);
      b := Byte(b + 100);
      Image1.Canvas.Pixels[x, y] := RGB(r, g, b);
    end;
  Label1.Caption := IntToStr(GetTickCount - ticks);
end;