du musst den Sender mit allen Buttons aus deinem Array vergleichen bis du den richtigen Button gefunden hast.
Delphi-Quellcode:
while (i < Length(deinArray)) and (deinArray[i].Button <> Sender) do
inc(i);
if (i < Length(deinArray)) then
showmessage('Index: ' + inttostr(i));
Besser wäre die Verwendung einer Liste.