In einer Memo suchen?

[citybreaker]

Ich habs folgendermaßen gemacht.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  iPos   : integer;
  iLine  : integer;
begin
  iPos := pos(Edit1.Text, SynMemo.Text);
  if iPos = 0 then exit;
  SynMemo.SelStart := iPos-1;
  SynMemo.SelEnd   := SynMemo.SelStart+length(Edit1.Text)-1;
end;