Rozliseni by se dalo vyresit nejak takto:
TypOblasti = (toObrazek, toKosik, ...);
TOblast = record
ID: Integer; {ID vyrobku}
X, Y: TPoint; {souradnice}
Typ: TypOblasti;
end;
var
Oblasti: array of TOblast;Pak jen projdu pole, najdu, co mi vyhovuje a podle typu provedu akci