Impressionist example for Delphi

procedure TForm1.ImpressionistClick(Sender: TObject);
begin
   LEADImage1.Impressionist( 10, 10 );
end;