var
  index:integer;
begin
  index:=pos(Edit1.Text,Memo1.Text);
  if index>0 then
  begin
  Memo1.SelStart:=index-1;
  Memo1.SelLength:=Length(Edit1.Text);
  Memo1.SetFocus;
  end;
end;