Как создать свою экранную клавиатуры

[Alexey]

Для создания экранной клавиатуры на vcl использовал SendMessage(form1.edit1.Handle, WM_CHAR, Ord('A'), 0), но на firemonkey у компонента TEdit и Tmemo свойство handle отсутствует. Подскажите, пожалуйста, каким образом можно решить проблему? 

[Alexey]

Решил проблему так: 

function insert_word(st1:string; edt:TEdit):string;
var
st2,st3:string;
begin
st2:=copy(edt.Text,edt.CaretPosition+1,Length(edt.Text)-edt.CaretPosition);
st3:=copy(edt.Text,1,edt.CaretPosition);
result:=st3+st1+st2;
end;

Где st1 - символ (фраза), который нужно вставить; edt - компонент Tedit, в который нужно вставить.