1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:

//...
uses RichEdit;
//...
procedure TForm1.FormCreate(Sender: TObject);
begin
  RichEdit1.Lines.Add('Dies ist der Text mit dem Bookmark [1]');
  RichEdit1.Lines.Add('Dies ist der Text in dem Bookmark [2] enthalten ist');
  RichEdit1.Lines.Add('Mit Bookmark [3] beginnt dieser Satz'+#13#10+'und hier ist das Ende.');
  ////Die Bookmark-Texte
  ListBox1.Items.Add('Bookmark Nr. 1 liegt unter der Maus');
  ListBox1.Items.Add('Bookmark Nr. 2 liegt unter der Maus');
  ListBox1.Items.Add('Bookmark Nr. 3 liegt unter der Maus');
end;

procedure TForm1.RichEdit1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var
  iCharIndex, iLineIndex, iCharOffset, i, j,iErg: Integer;
  Pt: TPoint;
  s,sErg: string;
begin
  with TRichEdit(Sender) do
  begin
    Pt := Point(X, Y);
    iCharIndex := Perform(Messages.EM_CHARFROMPOS, 0, Integer(@Pt));
    if iCharIndex < 0 then
      Exit;
    iLineIndex  := Perform(EM_EXLINEFROMCHAR, 0, iCharIndex);
    iCharOffset := iCharIndex - Perform(EM_LINEINDEX, iLineIndex, 0);
    if Lines.Count - 1 < iLineIndex then
      Exit;
    s := Lines[iLineIndex];
    i := iCharOffset + 1;
    while (i > 0) and (s[i] <> ' ') do
      Dec(i);
    j := iCharOffset + 1;
    while (j <= Length(s)) and (s[j] <> ' ') do
      Inc(j);
    sErg:= Trim(Copy(s, i, j - i));
    if (Length(sErg) > 2) and (sErg[1] = '[') and (sErg[Length(sErg)] = ']') then
      begin
      iErg := StrToInt(Copy(sErg,2,Length(sErg)-2));
      Hint := ListBox1.Items[iErg-1];
      if iErg <> RichEdit1.Tag then
        begin
        Application.CancelHint;
        RichEdit1.Tag := iErg;
        end;  
      end  
      else
        Application.CancelHint;
        end;
end;					

1:

{\*\bkmkstart 74747} ICHBINEINWORT {\bkmkend 74747}