Sources
Delphi Russian Knowledge Base
DRKB - это самая большая и удобная в использовании база знаний по Дельфи в рунете, составленная Виталием Невзоровым

Отслеживаем позицию курсора в TEdit

01.01.2007

В форму добавляются TEditBox и TLabel, при этом TLabel постоянно показывает позицию курсора в элементе редактирования.

procedure TForm1.Edit1Change(Sender: TObject); 
begin
 
CurPos := Edit1.SelStart;
  Label1
.Caption := IntToStr(CurPos);
end;
 
procedure TForm1
.Edit1KeyDown(Sender: TObject; var Key: Word;
 
Shift: TShiftState);
begin
 
If Key = VK_LEFT then dec(CurPos);
 
if Key = VK_RIGHT then inc(CurPos);  
  Label1
.Caption:= IntToStr(CurPos);
end;

Взято из https://forum.sources.ru