Выполнить действие при нажатии на слово в тексте

[belkeandrey]

Ребята, подскажите, пожалуйста! Есть текст в формате rtf, который при нажатии на кнопку на форме, открывается в RichEdit. Мне необходимо, чтобы при нажатии на определенное слово уже открытого на форме текста, выполнялось действие: отрывалось фото или видео. В делфи пока новичок. Подскажите, как реализовать...

[Алексей_2012]

открытого на форме текста

открытого на форме или в TrichEdit?

[belkeandrey]

Извиняюсь, открытого в RichEdit

[belkeandrey]

Вот, получилось очень даже ничего)

//Абсолютное положение курсора
function TForm1.RECharIndexByPos(RichEdit: TRichEdit; X,
  Y: Integer): Integer;
var
  P: TPoint;
begin
  P := Point(X, Y);
  Result := SendMessage(RichEdit.Handle, EM_CHARFROMPOS, 0, longint(@P));
end;

procedure TForm1.RichEdit1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);

var
  i,k,kol:Integer;
  S:String;
begin
 HideCaret(RichEdit1.Handle);
 S:='тренажер';//нужное слово
 kol:=8;//кол символов
 I:=RECharIndexByPos(RichEdit1,X,Y);//положение курсора
 if Pos(S,RichEdit1.Text)<>0 then
 if (I>Pos(S,RichEdit1.Text)-1)and (I<Pos(S,RichEdit1.Text)+(kol-1)) then
 image1.Visible:=true;
 end;

procedure TForm1.RichEdit1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var
  i,k,kol:Integer;
  S:String;
begin
 HideCaret(RichEdit1.Handle);
 S:='тренажер';
 kol:=8;
 I:=RECharIndexByPos(RichEdit1,X,Y);
 if Pos(S,RichEdit1.Text)<>0 then
 if (I>Pos(S,RichEdit1.Text)-1)and (I<Pos(S,RichEdit1.Text)+(kol-1)) then
 begin
 richedit1.SelStart:=-1;

 //richedit1.SelLength:=kol;
 //richedit1.SelAttributes.Color:=clRed;
 RichEdit1.SelAttributes.Style:=[fsBold];
 RichEdit1.Cursor:=crHandPoint;
 //richedit1.SelStart:=0;
 end
 else RichEdit1.Cursor:=crDefault;

  end;