Нашел еще более изящный способ, без исчезновения/показа клавиатуры:
procedure TForm1.Button1Click(Sender: TObject);
begin
Memo1.SelectAll;
Memo1.DeleteSelection;
end;
Ага, теперь нормально воспроизводится.
Самый простой способ избежать этого, вот такой:
procedure TForm1.Button1Click(Sender: TObject);
begin
Memo1.Text:=EmptyStr;
Memo1.ResetFocus;
Memo1.SetFocus;
end;
Правда будет видно что виртуальная клавиатура исчезает, а затем опять появляется.
Я использую для такого Indy, там все готовенькое, в том числе и TIdUDPServer со всем нужным вам функционалом (и потоками).
Вот в теме немного обсуждения
Жаль, что никто не помог...
Проблему решил.
Как всегда embarcadero ничего не доводит до конца!
Обертка для мультиплатформенного сокета (TSocket) криво работает как под windows так и под android.
Для работы с Multicast-пакетами под android используйте JMulticastSocket из android api.