Den Index zurückbekommen

[shmia]

 Buttons[i,j].Tag:=i + (j shl 8);

Delphi-Quellcode:

Procedure ButtonWerBistDu(Sender: TObject); 
var
   x, y : integer;
begin 
   if sender is TComponent Then 
   begin
      x := TComponent(sender).Tag and 255;
      y := TComponent(sender).Tag shr 8;
      ShowMessageFmt('Ich bin Button x=%d, y=%d', [x,y]); 
   end;
end;