Отвечу сам на свой вопрос:
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;
Единственное, стирает прямоугольной формой, как сделать круглой не нашел.
Тему можно закрывать