[Страдалецъ]

И под финал 22.14

Код:

unit Unit21;

interface

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

type
  TForm21 = class(TForm)
    Button1: TButton;
    TrackBar1: TTrackBar;
    Label1: TLabel;
    Image1: TImage;
    procedure Button1Click(Sender: TObject);
    procedure Image1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  end;

var
  Form21: TForm21;

implementation

{$R *.dfm}

procedure TForm21.Button1Click(Sender: TObject);
Var i: Integer;
    R: TRect;
begin
 Randomize;
 for i := 1 to TrackBar1.Position
 do begin
     R := Rect(Random(Image1.Width),Random(Image1.Height),Random(Image1.Width),Random(Image1.Height));
     Image1.Canvas.Pen.Color := Random($FFFF);
     Image1.Canvas.Brush.Color := Random($FFFF);
     case Random(4)+1
     of 1: begin
           Image1.Canvas.MoveTo(R.Left,R.Top);
           Image1.Canvas.LineTo(R.Right,R.Bottom);
           end;
        2: Image1.Canvas.Rectangle(R.Left,R.Top,R.Right,R.Bottom);
        3: Image1.Canvas.RoundRect(R,Random(R.Right-R.Left),Random(R.Bottom-R.Top));
        4: Image1.Canvas.FillRect(R);
     end;
 end;
end;

procedure TForm21.FormCreate(Sender: TObject);
begin
 Image1.Canvas.Brush.Color := clWhite;
end;

procedure TForm21.Image1Click(Sender: TObject);
begin
 Image1.Canvas.Brush.Color := clWhite;
 Image1.Canvas.FillRect(Image1.ClientRect);
end;

end.

И DFM

Код:

object Form21: TForm21
  Left = 0
  Top = 0
  Caption = 'Form21'
  ClientHeight = 469
  ClientWidth = 714
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  DesignSize = (
    714
    469)
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 136
    Top = 13
    Width = 94
    Height = 13
    Caption = #1050#1086#1083#1080#1095#1077#1089#1090#1074#1086' '#1092#1080#1075#1091#1088
  end
  object Image1: TImage
    Left = 8
    Top = 63
    Width = 698
    Height = 398
    Anchors = [akLeft, akTop, akRight, akBottom]
    OnClick = Image1Click
  end
  object Button1: TButton
    Left = 16
    Top = 24
    Width = 75
    Height = 25
    Caption = #1057#1086#1079#1076#1072#1090#1100
    TabOrder = 0
    OnClick = Button1Click
  end
  object TrackBar1: TTrackBar
    Left = 128
    Top = 32
    Width = 150
    Height = 25
    Max = 25
    Min = 1
    Position = 10
    TabOrder = 1
  end
end