[angvelem]

Вот кусок из исходников:

Код:

 if (FPictureOriginal.Graphic <> nil) and (FPicture.Graphic <> nil) then
   if (FPictureOriginal.Graphic is TBitmap) and (FPicture.Graphic is TBitmap) then
 begin
...
    // for each row of pixels
    for I := 0 to BmpOriginal.Height - 1 do
    begin
      OrigRow := BmpOriginal.ScanLine[i];
      DestRow := FPicture.Bitmap.ScanLine[i];
      if FNoise <> nil then
        NoiseRow := FNoise.ScanLine[i]
      else
        NoiseRow := OrigRow;

      // for each pixel in row
      for j := 0 to BmpOriginal.Width - 1 do
      begin
        RO:=OrigRow[j].rgbtRed;
        GO:=OrigRow[j].rgbtGreen;
        BO:=OrigRow[j].rgbtBlue;

        //Calculate Posterize or Solorize
        if FPosterize<>0 then
        begin
          RO:=round(RO/FPosterize)*FPosterize;
          GO:=round(GO/FPosterize)*FPosterize;
          BO:=round(BO/FPosterize)*FPosterize;
        end
...