Suche in einem Text

[SirThornberry]

und für diejenigen die, die Hilfe nicht nutzen wollen (ich hoffe sowas gibts nicht) hier ein anderer Ansatz:
mit Pos einfach prüfen an welcher Stelle das Wort ist. Und wenn Pos das Wort gefunden hat, einfach SelStart des memos setzen

Delphi-Quellcode:

var LPos: Integer;
begin
  LPos := pos(suchwort, Memo1.Text);
  if LPos > 0 then
    Memo1.SelStart := LPos;
end;