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:
54:
55:
56:

function ScanString(RichEdit: TRichEdit; X, Y: Integer): String;
var
  iCharIndex, iLineIndex, iCharOffset, lc, n, c: Integer;
  Pt: TPoint;
begin
 with RichEdit do
 begin
  Pt := Point(X, Y+2);

  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) or (Length(Lines[iLineIndex]) = 0) then exit;

  Result := '';

  {Länge der Zeilen vor der aktuellen Zeile ermitteln, zB. wenn die 4. Zeile die}
  {aktuelle ist, dann die Längen der Zeilen 1-3 ermitteln, + jeweils 2 für #13#10}
  lc := 0;
  for n := 0 to Lines.Count-1 do
  begin
   if Lines[iLineIndex] = Lines[n] then break;
   lc := lc+Length(Lines[n])+2;
  end;

  {Anfang des Hyperlinks ermitteln}
  for c := iCharOffset downto 1 do
  begin
   SelStart := lc+c;
   if not (fsUnderLine in SelAttributes.Style) then break;
  end;

  {Nur noch die unterstrichenen Zeichen ermitteln}
  for n := c+1 to Length(Lines[iLineIndex]) do
  begin
   SelStart := lc+n;
   if fsUnderLine in SelAttributes.Style then
   begin
    Result := Result+Lines[iLineIndex][n];
    RichEdit.Cursor := crHandPoint;
   end
   else break;
  end;

  {Das Caret folgt dem Mauscursor}
  if Y >= iLineIndex then SelStart := iCharIndex;

//DestroyCaret;

  if not (fsUnderLine in SelAttributes.Style) or (iCharOffset = Length(Lines[iLineIndex])) then
   RichEdit.Cursor := crArrow;
 end;
end;