Wort in tmemo finden und text markieren

[Natcree]

Hallo ich möchte aus einem TMemo ein wort Finden

das mache ich so

Delphi-Quellcode:

procedure TForm1.Button6Click(Sender: TObject);
var
  MemoText,SuchStr: String;
  FundPos: Integer;
begin
  MemoText:= Memo1.Text;
  SuchStr:= 'Wort';
  FundPos:= Pos(SuchStr, MemoText);
  if FundPos = 0 then exit 
  else
  ...
end;

Nun mehr sollen die alle zeichen die nach diesem Wort kommen markiert werden und zwar bis das Wort2 kommt.

Wie kann ich das realisieren? hat jemand einen Tip???
Wie erhalte ich die Anzahl der Zeichen bis zum wort2 ?