{Alternative à la fonction de Japee ... de 1,33 à 1,75 fois plus rapide}
Uses StrUtils; {Indispensable pour PosEx}
Function MidStr(Const S, SLeft, SRight: String): String;
Var
PosLeft, PosRight: Integer;
Begin
PosLeft := Pos(SLeft, S);
If PosLeft < 1 Then Exit;
Inc(PosLeft, Length(SLeft));
PosRight := PosEx(SRight, S, PosLeft);
If PosRight < 1 Then Exit;
Result := Copy(S, PosLeft, PosRight - PosLeft);
End;