Hola de nuevo.
Leyendo la ayuda encontré que la propiedad
FMX.Forms.TCommonCustomForm.Focused es el equivalente a la propiedad
ActiveControl.
Hice la siguiente prueba y funciona correctamente:
Código Delphi
[-]
procedure TForm1.SpeedButton1Click(Sender: TObject);
var
ed : TEdit;
begin
if Self.Focused is TEdit then
begin
ed := TEdit( Self.Focused );
ed.Text := IntToStr( StrToIntDef( ed.Text, 0) +1 );
end;
end;
Saludos