Распылитель в Delphi

[студенточка!]

Здравствуйте,подскажите пожалуйста как реализовать распылитель (как инструмент "Распылитель" в Paint)допустим на форме есть кнопка при нажатии на которую курсор превратился в распылитель и функционирует как он.

[s-andriano]

А Вы попытайтесь описать словами, как именно он функционирует.
Собственно, с этого начинается реализация любой идеи - описать эту идею словами.

[BDA]

Простейший распылитель:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls;

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    procedure FormMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
    procedure FormMouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Timer1Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  x0, y0: Integer;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  Timer1.Enabled := false;
  Timer1.Interval := 10;
end;

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  x0 := X;
  y0 := Y;
  Timer1.Enabled := true;
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
begin
  x0 := X;
  y0 := Y;
end;

procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  Timer1.Enabled := false;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
const
  d = 30;
begin
  canvas.Pixels[x0 + random(d + 1) - d div 2, y0 + random(d + 1) - d div 2] := clred;
end;

end.

UPD
Пожалуйста

Гуще точки и быстрее ставятся:

procedure TForm1.Timer1Timer(Sender: TObject);
const
  d = 10;
  n = 10;
var
  i: Integer;
begin
  for i := 1 to n do
    canvas.Pixels[x0 + random(d + 1) - d div 2, y0 + random(d + 1) - d div 2] := clred;
end;

[студенточка!]

Спасибо большое за пример)