Определение Timage под мышью

 for i:=0 to TFrame2_maps.ComponentCount-1 do
  if (TFrame2_maps.Components[i] is Timage) and
  (
  (TFrame2_maps.Components[i].left<=X and TFrame2_maps.Components[i].left+TFrame2_maps.Components[i].width>=X )
and (TFrame2_maps.Components[i].top<=y and TFrame2_maps.Components[i].top+TFrame2_maps.Components[i].heigth>=y)
)
 
 
  then showmessage(TFrame2_maps.Components[i].Name);

???

procedure TFrame2_maps.Image1MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Single);
  var
  i:integer;
begin
    for i:=0 to TFrame2_maps.ComponentCount-1 do
  if (TFrame2_maps.Components[i] is Timage) and  PtInRect(TFrame2_maps.Components[i], point(x,y))

 for i:=0 to Frame2maps.ComponentCount-1 do
  if (Frame2maps.Components[i] is Timage) and  PtInRect(Frame2maps.Components[i], point(round(x),round(y)))
  then showmessage(Frame2maps.Components[i].Name);

procedure TBitmap.ReplaceOpaqueColor(const Color: TAlphaColor);
var
  I, J: Integer;
  M: TBitmapData;
  C: PAlphaColorRec;
begin
  if Map(TMapAccess.ReadWrite, M) then
  try
    for J := 0 to Height - 1 do
      for I := 0 to Width - 1 do
      begin
        C := @PAlphaColorArray(M.Data)[J * (M.Pitch div 4) + I];
        if C^.A > 0 then
          C^.Color := PremultiplyAlpha(MakeColor(Color, C^.A / $FF));
      end;
  finally
    Unmap(M);
  end;
end;

 C := @PAlphaColorArray(M.Data)[J * (M.Pitch div 4) + I];
        if C^.A > 0 then

C^.A

if image2.Bitmap.Map(TMapAccess.ReadWrite, M) then
  try
    for J := 0 to Height - 1 do
      for I := 0 to Width - 1 do
      begin
        C := @PAlphaColorArray(M.Data)[J * (M.Pitch div 4) + I];
        if C^.A > 0 then
        showmessage('цвет');
      end;
  //finally
  except
         showmessage('Ошибка');
 
     // Unmap(M);
 
  end;

 
procedure TFrame2_maps.Image1_PenzaMouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Single);
var
  
  r,g,b: byte;
  I, J: Integer;
  M: TBitmapData;
  C: TAlphaColor;
begin
 ShowMessage('координаты : X=' + floatToStr(X) +
              ' Y=' + floatToStr(Y));
   if image1_penza.Bitmap.Map(TMapAccess.ReadWrite, M) then
  try
  
 
        C := M.GetPixel(round(x),round(y)) ;
        
 
          showmessage('цвет'+ AlphaColortostring(C));
 
  except
         showmessage('Ошибка');
 
end;
 
end;