Delphi - Como obter uma string entre outras duas

Essa função eu peguei arquivo "900 dicas de delphi - dtdelphi28", não lembro de onde baixei esse arquivo, mas é muito bom.

function Copy(Frase,Inicio,Fim:String):String;
{ função criada por Marcus Vitoratti }
var  
  iAux,kAux:Integer;
begin
 Result:='';
 if (Pos(Fim,Frase) <> 0) and (Pos(Inicio,Frase)<>0) then
  begin
    iAux:=Pos(Inicio,Frase)+length(Inicio);
    kAux:=Pos(Fim,Frase);
    Result:=Copy(Frase,iAux,kAux-iAux);
  end;
end;

Exemplo:

label1.caption:= Copy('==aa==Título da página+++aa','==aa==','+++aa');
//retornará a string 'Título da página'.