Курсовая работа: "Мозаика"

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, XPMan;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    XPManifest1: TXPManifest;
    procedure Button1Click(Sender: TObject);
    procedure PanelMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer); //и этот обработчик добавь
    procedure PanelMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer); //этот обработчик добавь
 
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  tx, ty: Integer;
  impanel: Integer;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var
  i, j: Byte;
begin
  Randomize;
 
  //удалим предыдущие панели
  for i := ComponentCount - 1 downto 0 do
    if Components[i] is TPanel then
      (Components[i] as TPanel).Free;
 
  //создадим несколько панелей
  for i := 1 to 8 do
    for j := 1 to 4 do
      with TPanel.Create(Self) do
      begin
        Left := 50 * i - 50;
        Top := 50 * j - 50;
        Width := 50;
        Height := 50;
        Font.Size:= 10;
        Font.Name:= 'Segoe Script';
        Font.Style:= [fsBold];
        Caption := Chr(192 + Random(32));
        Color := RGB(Random(256), Random(256), Random(256));
        OnMouseDown := PanelMouseDown; //этот обработчик нужен
        OnMouseMove := PanelMouseMove; //и этот обработчик нужен
        Parent := Self;
      end;
end;
 
procedure TForm1.PanelMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  tx := X;
  ty := Y;
  (Sender as TControl).BringToFront; //поверх остальных
  Caption := 'Взята буква = ' + (Sender as TPanel).Caption;
end;
 
procedure TForm1.PanelMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if Shift = [ssLeft] then
    with (Sender as TControl) do
    begin
      Left := Left + X - tx;
      Top := Top + Y - ty;
    end;
end;
 
end.

var
  i, j: Byte;
begin
  for i := 1 to 8 do
    for j := 1 to 4 do
      with TImage.Create(Self) do
      begin
        Left := Random(400);
        Top := Random(200);
        Width := 50;
        Height := 50;
        Canvas.Font.Size := 16;
        Canvas.Font.Color := clRed;
        Canvas.Font.Name := 'Segoe Script';
        Canvas.Brush.Color := RGB(Random(256), Random(256), Random(256));
        Canvas.FillRect(Rect(0, 0, 50, 50));
        Canvas.TextOut(10, 10, Chr(192 + Random(32)));
        Parent := Self;
      end;
end;