Листбох в виде списка миниизображений

[CrazyProgramer]

Здравствуйте всем. Подскажите как сделать следующее:
Есть имадж лист в нем 10 картинком 64x64 (картинки для топов заданий)
Надо сделать что то вроде панели чтоб на ней отображались все эти самые картинки и при выборе выделялись?

[Stilet]

Вот например так:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    ImageList1: TImageList;
    procedure FormPaint(Sender: TObject);
    procedure FormMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var  a,b:integer;
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormPaint(Sender: TObject);
var xo,yo,x,y,i:integer;
begin
 x:=0; y:=0;
 for i:=0 to ImageList1.Count-1 do begin
  ImageList1.Draw(Form1.Canvas,x,y,i);
  if (a>x)and(a<(x+64))and(b>y)and(b<y+64) then begin
   Canvas.Pen.Color:=clRed;
   Canvas.Brush.Style:=bsClear;
   Canvas.Pen.Width:=5;
   Canvas.Rectangle(x,y,x+64,y+64);
  end else begin
   Canvas.Pen.Color:=clNone;
   Canvas.Pen.Width:=0;
  end;
  xo:=x;yo:=y;
  if x+ImageList1.Width<Width then inc(x,64)
   else begin
    inc(y,64);x:=0;
   end;
 end;
end;

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  a:=x;
  b:=y ;
  Repaint;
end;

end.

Здесь только мыша работает, но и клаву прикрутить не сложно.