Aging Example for Delphi

procedure TForm1.Button1Click(Sender: TObject);
begin
   { Load the bitmap, keeping the bits per pixel of the file }
   LEADImage1.Load ( 'image1.cmp', 0, 1, 1 );
   { apply aging effect }
   LEADImage1.Aging(10, 2, 50,2,5,6, RGB(255,255,0), RGB(0,0,0),
   RGB(0,0,255), AGING_ADD_VSCRATCH + AGING_ADD_PITS + AGING_SCRATCH_INV + AGING_PITS_CLR);
end;