Hola.
Tenes razón... entonces proba de este modo:
Código Delphi
[-]
procedure TForm1.Button1Click(Sender: TObject);
var
p: Integer;
begin
p:= Pos('https://www.' + Edit1.Text + '.com.pe', Memo1.Text);
if p > 0 then
begin
Memo1.SelStart:= p - 1;
Memo1.SelLength:= Length('https://www.' + Edit1.Text + '.com.pe');
Memo1.SetFocus;
end;
end;
Pero es claro que a menos que utilices variables en su lugar, siempre estarás limitado a buscar cadenas con el contenido 'https://www.' y '.com.pe'.
Saludos.