Паззл: сделать загрузку изображений через Case

unit Unit83;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, Jpeg;
 
type
  TForm1 = class(TForm)
    Bevel1: TBevel;
    Image1: TImage;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    Image : array[0..35] of TImage;
    bmp : TBitmap;
 
    procedure ImageMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
    procedure ImageMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
    procedure ImageMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
  end;
 
var
  Form1: TForm1;
  Capture : Boolean;
  OldPt   : TPoint;
  NewPt   : TPoint;
 
implementation
 
uses Types;
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
var
  I, J : Integer;
  jpg : TJpegImage;
  buf : array[0..35] of TPoint;
begin
  Randomize;
  DoubleBuffered := True;
 
//вот часть отвечающая за загрузку картинки и её обесцвечивание
//как переделать эту часть с помощью  команды CASE.
  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;
 
  jpg.Grayscale := True;
  bmp.Assign(jpg);
  bmp.PixelFormat := pf24bit;
  jpg.Free;
 
  Image1.Picture.Bitmap := bmp;
end;
 
procedure TForm1.FormDestroy(Sender: TObject);
var
  I : Integer;
begin
  for I := 0 to High(Image) do
    Image[I].Free;
  bmp.Free;
end;
 
procedure TForm1.ImageMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  (Sender as TImage).BringToFront;
  OldPt := Point((Sender as TImage).Left, (Sender as TImage).Top);
  Capture := True;
  NewPt.X := X;
  NewPt.Y := Y;
end;
 
procedure TForm1.ImageMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var
  aRect : TRect;
  Image : TImage;
  Pt    : TPoint;
begin
  if Capture then
  begin
    Image := (Sender as TImage);
    Image.Left := Image.Left - (NewPt.X - X);
    Image.Top  := Image.Top - (NewPt.Y - Y);
 
    Pt := Image1.ScreenToClient(Image.ClientToScreen(Point(X, Y)));
    if IntersectRect(aRect, Image1.BoundsRect, Image.BoundsRect) then
    begin
      if (Pt.Y div 100 * 6 + Pt.X div 133) = Image.Tag then
      begin
        Image1.Canvas.CopyRect(Rect(Image.Tag mod 6 * 133, Image.Tag div 6 * 100, Image.Tag mod 6 * 133 + 133, Image.Tag div 6 * 100 + 100), Image.Canvas, Image.ClientRect);
        Image.Visible := False;
      end;
    end;
  end;
end;
 
procedure TForm1.ImageMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  Capture := False;
  with (Sender as TImage) do
  begin
    if not PtInRect(Bevel1.BoundsRect, Point(Left, Top)) and Visible then
    begin
      (Sender as TImage).Left := OldPt.X;
      (Sender as TImage).Top  := OldPt.Y;
    end;
  end;
end;
 
end.

 jpg := TJpegImage.Create;
  jpg.LoadFromFile('2.jpg');

 if not OpenPictureDialog1.Execute then Exit;
 jpg := TJpegImage.Create;
  jpg.LoadFromFile(OpenPictureDialog1.FileName);