Wie kann man den Link-Teil aus einem Hyperlink auslesen

Hallo

Ich habe ein Programm mit WPTools 3 erstellt und möchte es auf WPTools 5 anpassen.

Dazu eine kleine Frage.
Ich möchte aus einem beliebigen Text alle Hyperlinks suchen.
Und zwar nicht nur den URL (wie hier im Forum schon mehrfach beschrieben), sondern auch den Link Teil (den sichtbaren Teil).

Unten habe ich mal ein Test gemacht. Leider scheint TWPTextObj keine Properies zu haben, die den Link Namen enthält.

procedure TForm1.Button4Click(Sender: TObject);
var
  obj : TWPTextObj;
begin
  WPRichText1.TextCursor.MoveTo(WPRichText1.TextCursor.FirstPar);
  obj := WPRichText1.TextCursor.NextObjAtCP;
  while obj <> NIL do begin
    if (obj.ObjType = wpobjHyperlink) and (wpobjIsOpening in obj.Mode) then begin
      ShowMessage(obj.source) // URL Teil
    end
    obj := WPRichText1.TextCursor.NextObjAtCP;
  end;
end;