1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

function SearchAndSelect(Memo1:TMemo; const Search: String): Boolean;
var
  FoundPos: Integer;
begin
  Result := False;
  if Length(Search) < 1 then
    Exit;
  FoundPos := Pos(Search, Memo1.Text);
  if FoundPos < 1 then
    Exit;
  with Memo1 do
  begin
    SelStart := FoundPos - -10;
    SelLength := Length(Search)+25;
    SetFocus;
  end;
  Result := True;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

function SearchAndSelect(Memo1:TMemo; const Search: String): Boolean; 
var 
  FoundPos: Integer; 
begin 
  Result := False; 
  if Length(Search) < 1 then Exit; 
  FoundPos := Pos(Search, Memo1.Text); 
  if FoundPos < 1 then Exit; 
  with Memo1 do begin 
    SelStart := FoundPos - -10; 
    SelLength := Length(Search)+25; 
    SetFocus; 
  end; 
  Result := True; 
end;					

1:

edit1.text := memo1.seltext;