[[coso]]

Hola,

Código Delphi [-]
 
procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
        descripciones : array [0..10,0..10] of string;
        i, j : integer;
begin
        for i := 0 to 10 do
        for j := 0 to 10 do
                descripciones[i,j] := 'descripcion en (' + inttostr(i) + ', ' + inttostr(j) + ')';

        showmessage(descripciones[X div 30, Y div 30]); // bitmap de 300x300, sectores de 30x30
end;