tabbedwithnavigationform.button99.OnGesture
это плохой стиль однако, когда мы привязываемся к какому-то конкретному элементу интерфейса
то, что кнопка называется button99 - это плохой стиль, часть вторая
а сам вопрос из букваря. в событие передается параметр Sender - это ссылка на тот компонент, у которого это событие произошло. Только тип нужно привести к настоящему...
можно так
procedure TForm1.ButtonClick(Sender:TObject);
var b:TButton absolute Sender;
begin
showMessage('Нажата кнопка '+b.Name);
end;
end;