Игра в мозаику

procedure TForm1.FormCreate(Sender: TObject);
var
  I, J : Integer;
  jpg : TJpegImage;
  buf : array[0..35] of TPoint;
begin
  Randomize;
  DoubleBuffered := True;
 
  jpg := TJpegImage.Create;
  jpg.LoadFromFile('2.jpg');
  bmp := TBitmap.Create;
  bmp.Assign(jpg);
 
  for I := 0 to 5 do
    for J := 0 to 5 do
    begin
      Buf[I * 6 + J].X := (J * 20) + I * 60 + 830;
      Buf[I * 6 + J].Y := (J * 80) + I * 10 + 10;
    end;
 
  for I := 0 to 5 do
    for J := 0 to 5 do
    begin
      Image[I * 6 + J] := TImage.Create(Self);
      with Image[I * 6 + J] do
      begin
        Parent      := Form1;
        Tag         := {35 -} (I * 6 + J);
        Width       := 133;
        Height      := 100;
        Left        := Buf[Random(36)].X;
        Top         := Buf[Random(36)].Y;
        OnMouseDown := ImageMouseDown;
        OnMouseMove := ImageMouseMove;
        OnMouseUp   := ImageMouseUp;
        Canvas.CopyRect(Image[I * 6 + J].Canvas.ClipRect, bmp.Canvas, Rect(J * 133, I * 100, J * 133 + 133, I * 100 + 100));
        Canvas.Brush.Style := bsClear;
        Canvas.Rectangle(Image[I * 6 + J].Canvas.ClipRect);
      end;
    end;

procedure TForm1.FormCreate(Sender: TObject);
var
  I, J : Integer;
  jpg : TJpegImage;
  buf : array[0..35] of TPoint;
begin
  Randomize;
  DoubleBuffered := True;
 
  jpg := TJpegImage.Create;
  jpg.LoadFromFile('2.jpg');
  bmp := TBitmap.Create;
  bmp.Assign(jpg);
 
  // Вычисляем координаты для будущих кусочков мозаики, правее основной картинки.
  // Всего 36
  for I := 0 to 5 do
    for J := 0 to 5 do
    begin
      Buf[I * 6 + J].X := (J * 20) + I * 60 + 830;
      Buf[I * 6 + J].Y := (J * 80) + I * 10 + 10;
    end;
 
  // Всего 36
  for I := 0 to 5 do
    for J := 0 to 5 do
    begin
      Image[I * 6 + J] := TImage.Create(Self); // Создать TImage
      with Image[I * 6 + J] do
      begin
        Parent      := Form1; // Указать владельца
        Tag         := (I * 6 + J); // Номер для опознавания
        Width       := 133;
        Height      := 100;
        Left        := Buf[Random(36)].X; // Присвоить случайную координату
        Top         := Buf[Random(36)].Y; // Присвоить случайную координату
        // События обработки мышки
        OnMouseDown := ImageMouseDown;
        OnMouseMove := ImageMouseMove;
        OnMouseUp   := ImageMouseUp;
        // Копировать кусок картинки
        Canvas.CopyRect(Image[I * 6 + J].Canvas.ClipRect, bmp.Canvas, Rect(J * 133, I * 100, J * 133 + 133, I * 100 + 100));
        Canvas.Brush.Style := bsClear;
        Canvas.Rectangle(Image[I * 6 + J].Canvas.ClipRect); // Рамка - она и похожа на разделительную линию
      end;
    end;

if k=n then showmessage('Мозаика собрана')