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

Procedure TDrawings.GreyBitmap(Const ABitmap: TBitmap);
Var
   I, J, Gr: Integer;
   Row:      ^TRGBTriple;
Begin
     For J      := 0 To ABitmap.Height -1 Do Begin
         Row    := ABitmap.ScanLine[J];
         For I  := 0 To ABitmap.Width -1 Do Begin
             Gr := Trunc(Row^.rgbtRed * 0.3 + Row^.rgbtGreen * 0.59 +
                         Row^.rgbtBlue * 0.11);
             //Gr := Trunc(Row^.rgbtRed * 0.1 + Row^.rgbtGreen * 0.39 +
             //            Row^.rgbtBlue * 0.0);
             Row^.rgbtRed   := Gr;
             Row^.rgbtGreen := Gr;
             Row^.rgbtBlue  := Gr;
             Inc(Row);
         End;
     End;
     ABitmap.Assign(ABitmap);
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:

procedure TfrmMain.btnScaleClick(Sender: TObject);
var
  bmp : TBitmap;
  x, y : integer;
  r,g,b : byte;
begin
  percentage := StrToInt(edtPercentage.Text);
  bmp := TBitmap.Create;
  bmp.LoadFromFile(sourcepath);
  for x := 1 to bmp.Width do
  begin
    for y := 1 to bmp.Height do
    begin
      r := GetRValue(bmp.Canvas.Pixels[x,y]);
      g := GetGValue(bmp.Canvas.Pixels[x,y]);
      b := GetBValue(bmp.Canvas.Pixels[x,y]);
      r := r - ((r div 100) * percentage);
      g := g - ((g div 100) * percentage);
      b := b - ((b div 100) * percentage);
      bmp.Canvas.Pixels[x,y] := RGB(r,g,b);
    end;
  end;
  bmp.SaveToFile(ExtractFilePath(sourcepath)+'ausgabe.bmp');
  edtDestinationImage.Text := ExtractFilePath(sourcepath)+'ausgabe.bmp';
  ShowMessage('Bild wurde um ' + IntToStr(percentage) + ' Prozent verdunkelt.');
end;