delphi提取字符串中指定子字符串之间的字符串

function beween(Src, x, y: string): string;       //输出xy之间的字符
var
  E, F: Word;
  z: string; //截取后字符串
begin
  E := POS(x, Src); //x位置    //取出子串a，在父串b中第一次出现的位置；
  if E < 1 then
  begin
    z := '-1'
  end
  else
    z := COPY(Src, E + 1, length(Src) - E);
  F := POS(y, z);     //Y位置

  if F < 1 then
    Result := COPY(z, 0, length(z))
  else
    Result := COPY(z, 0, F);
  //  beween := COPY(s, F + length(Src), length(s));
end;