Здравствуйте.
Это баг, я сообщил о нём ещё в мае (RSP-14928 и RSP-14929), в тех. поддержке предложили временное решение (ответ ниже). (Тема В TEdit стирается предыдущий текст аналогичная).
find FMX.Platform.Android.pas
find
procedure TTextServiceAndroid.SetCaretPosition(const Value: TPoint);
change code to:
procedure TTextServiceAndroid.SetCaretPosition(const Value: TPoint);
var
SelStart, SelEnd: Integer;
begin
if FCaretPosition <> Value then
begin
FCaretPosition := Value;
CalculateSelectionBounds(SelStart, SelEnd);
if (FTextView <> nil) and not FInternalUpdate then
PlatformAndroid.SynchronizeOnUIThread(
procedure
begin
//Fix By [龟山]Aone(1467948783)
//https://quality.embarcadero.com/browse/RSP-14928
// if (SelEnd - SelStart) > 0 then
// FTextView.setSelection(SelStart, SelEnd)
// else
FTextView.setCursorPosition(CaretPosition.X);
end);
end;
end;