Renombrar solo un nombre

[Paulao]

este es parte de mi codigo.

Código Delphi [-]
posicao := Pos('SP', s);
    if posicao > 0 then
      s := StringReplace(s,'SP','SPO',[rfReplaceAll]);

Mis archivos viene asi:

Código Delphi [-]
20000528-38939-SP-E03-NOT.pdf

Pero as veces viene asi:

Código Delphi [-]
20000528-38939-SP-ESP03-NOT.pdf

Y cuando si renombra, queda asi:

Código Delphi [-]
20000528-38939-SPO-ESP03-NOT.pdf

y no asi:

Código Delphi [-]
20000528-38939-SPO-ESPO03-NOT.pdf

Si lo hago asi: POS('-SP-',s), no renombra las carpetas que tiene el mismo nombre(SP), i si lo dejo asi como estás el renombra todas las palavrs que tiene SP, y no esto que yo quiero.