Pixelate example for Delphi

procedure TForm1.PixelateClick(Sender: TObject);
var
   ptCenter: TPoint;
begin
   ptCenter.x :=  Trunc(LEADImage1.BitmapWidth /2);
   ptCenter.y :=  Trunc(LEADImage1.BitmapHeight /2);

   LEADImage1.Pixelate( 5, 10, 100, ptCenter, PIX_AVR Or PIX_RAD Or PIX_WPER Or PIX_HPER );
end;