Запихнул функции каретки в элемент.
Каретка это мигающая вертикальная черточка в позиции которой происходит ввод текста.
Возможности элемента:
   1. Создавать каретку ввода (каретка может быть создана у любого интерфейсного элемента).
   2. Создание каретки по картинке.
   3. Скрытие\Показ каретки.
   4. Изменение позиции каретки.
   5. Получение позиции каретки.
   6. Изменение мерцания каретки.
   7. Получение значения мерцания каретки.

Используя элемент можно нарисовать свой интерфейсный элемент для ввода текста. В примере DrawEdit.pas показано как это можно сделать.В примере CreateCaretFromBitmap.sha элементу Edit вместо стандартной создается каретка по рисунку.
Добавлен пример изменения значения мерцания каретки с возможностью восстановления по умолчанию.nesco, элемент прост до безобразия, если не трудно посмотрите и добавьте.

Архив с файлами элемента и примерами