Выбор TImage в ScrollBox

[mrCloud]

Добавляю программно в ScrollBox , TImage

  dynImage := TImage.Create(Form1);
  dynImage.Parent := ScrollBox1;
  dynImage.Left := x;
  dynImage.Top := y;
  dynImage.Width := 150;
  dynImage.Height := 150;
  x := x + 150;
  if i = 5 then
  begin
    y:=y+150;
    x:=10;
    i:=1;
  end;
  inc(i);
  dynImage.Picture.Graphic := ImgBitmap;

Вопрос: как сделать их выделение по клику в ScrollBox?

[dmitriegorovih]

добавить image и рисовать на нём квадрат
ну примерно вот так

procedure TForm1.click(Sender: TObject);
begin
image1.Transparent:=true;
image1.Left:=Timage(sender).Left-5;
image1.Top:=Timage(sender).Top-5;
image1.Width:=Timage(sender).Width+10;
image1.Height:=Timage(sender).Height+10;
image1.Picture.Bitmap:=TBitmap.Create;
image1.Picture.Bitmap.PixelFormat:=pf24bit;
image1.Picture.Bitmap.Width:=image1.Width;
image1.Picture.Bitmap.Height:=image1.Height;
image1.Picture.Bitmap.Canvas.Pen.Width:=5;
image1.Picture.Bitmap.Canvas.Pen.Color:=clblue;
image1.Picture.Bitmap.TransparentColor:=clwhite;
image1.Picture.Bitmap.Transparent:=true;
image1.Picture.Bitmap.Canvas.Rectangle(0,0,image1.Width,image1.Height);
end;


dynImage := TImage.Create(Form1);
  dynImage.Parent := ScrollBox1;
  dynImage.Left := x;
  dynImage.Top := y;
  dynImage.Width := 150;
  dynImage.Height := 150;
  x := x + 150;
  if i = 5 then
  begin
    y:=y+150;
    x:=10;
    i:=1;
  end;
  inc(i);
  dynImage.Picture.Graphic := ImgBitmap;
  dynimage.OnClick:=click;