Alternativas a esta funcion

[JuanOrtega]

Me encontre esta funcion en un blogger y queria preguntarles si alguno conoce otra forma de hacer lo mismo.

El codigo :

Código Delphi [-]
Function MidText(sCadena: String; sDel_1: String; sDel_2: String): String;
Begin
  Result := Copy(sCadena, AnsiPos(sDel_1, sCadena) + Length(sDel_1), Length(sCadena) - AnsiPos(sDel_2, Result));
  Result := Copy(Result, 1,  AnsiPos(sDel_2, Result) - 1);
End;