предположу: можно перебрать все объекты на форме в цыкле и при нахождении TpaintBox проверять "входят ли координаты мышки в плоскость найденого TpaintBox" ... если да - получаем из найденого компонента все данные и засчитываем его)
Код:
var
pb : TpaintBox;
i:integer;
begin
for i:=0 to Form1.ComponentCount-1 do
if (Form1.Components[i] is TpaintBox) and (<проверка на позицию мыши>) then
showmessage(Form1.Components[i].Name);
end;