"Ластик" для TImage

[Botov Nikita]

Добрый день Уважаемые!

Подскажите каким образом можно реализовать функцию ластика в XE 10.3?
Например на форме лежит 2 TImage один над другим, и когда мышкой проводим по верхней картинке, остается "след" и видно нижнюю картинку?

С Уважением!

[Botov Nikita]

Отвечу сам на свой вопрос:

  if Sender is TImage then
  with TImage(Sender).Bitmap.Canvas do
  if BeginScene then
    try
      ClearRect(TRectF.Create(x-10, y-10, x+10, y),1);
    finally
      EndScene;
    end;

Единственное, стирает прямоугольной формой, как сделать круглой не нашел. 

Тему можно закрывать