Scroll caret to view in FireMonkey TMemo

Scroll caret to view in FireMonkey TMemo

I want to scroll a TMemo until the caret, at the bottom of a TMemo, is visible. Using VCL I'd do:
        SendMessage(Memo1.Handle, EM_SCROLLCARET, 0, 0);
How to do the same with FireMonkey? Must work cross-Platform of course.

Comments