PuzzleEffect example for Delphi

procedure TForm1.Button1Click(Sender: TObject);
begin
   { Load the bitmap, keeping the bits per pixel of the file }
   LEADImage1.Load ('e:\\image1.cmp', 0, 1, 1 );

   { Apply Puzzle Effect to this bitmap }
   LEADImage1.PuzzleEffect(10, 10, 0, RGB(100,0,0), PUZZLE_BORDER + PUZZLE_SHUFFLE + PUZZLE_COUNT + BITMAP_RESIZE);
end;