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

В форму добавляются 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;

магазин чая

---