Пятнашки

  private
    { Private declarations }
    var mas:array[1..10,1..10] of TImage;

mas[i,j]:=TImage.Create(self); // создали объект
mas[i,j].Parent:=self // сказали что отбражать его надо на форме
// точно также настраиваете другие параметры например:
mas[i,j].Width:=??;
mas[i,j].Left:=??*j;

procedure TForm1.FormCreate(Sender: TObject);
var i,j:byte;
begin
for i := 1 to 6 do
  for j := 1 to 5 do
    begin
      mas[i,j]:=TImage.Create(self);
      mas[i,j].Parent:=self;
      mas[i,j].Width:=40;
      mas[i,j].Height:=40;
      mas[i,j].Left:=40*i;
      mas[i,j].Top:=40*j;
    end;
end;
end.

if Source is Timage then
  if Sender<>Source then
    Accept:=true
  else
    Accept:=false;

var i:TBitmap;
i:=(Source as Timage).Picture.Bitmap;
(Source as Timage).Picture.Bitmap:=(Sender as Timage).Bitmap;
(Sender as Timage).Bitmap:=i;

var x,y:integer;
x:=(Source as Timage).left;
y:=(Source as Timage).top;
(Source as Timage).left:=(Sender as Timage).left;
(Source as Timage).top:=(Sender as Timage).top;
(Sender as Timage).left:=x;
(Sender as Timage).top:=y;