Работа с графикой в Delphi

[AlterProger]

Привет! Прошу помочь мне с написанием программы.Нужно для компонента Button создать обработчик события OnClick.В его теле написать код,который рисует на компонентеPaintBox 1000 точек случайными цветами. Также точки должны быть случайным образом расположены по всей области компонента PaintBox. Помогите,кто чем может! С миру по нитке - голому рубаха. С программиста по строчке - новичку код!

[Stilet]

Так устроит?:

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
 for I:=1 to 1000 do begin
  with PaintBox1.Canvas do begin
    Pixels[random(10+PaintBox1.Width-20),random(10+PaintBox1.Height-20)]:=RGB(random(255),random(255),random(255));
  end;
 end;

end;

[ОДИНОЧЕСТВО В СЕТИ]

А неустроит - стучите в аську!Сделаю за скромную оплату!

[AlterProger]

Спасибо большое!!! Теперь контрольную сдам!