Cubism example for Delphi

procedure TForm1.CubismClick(Sender: TObject);
begin
   LEADImage1.Cubism( 10, 20, 50, 4500, RGB(255,0,0), CUB_COLOR Or CUB_RECT Or CUB_RAND );
end;