Duda con una String

[Paulao]

Mira, yo hizo mi codigo para traer solo el nombre de Loja asi:

j := AnsiPos('LOJA:',s);
if j <> 0 then
Loja := Copy(s,j+5,pos('FONE:',s)-1);

Esto no estas funcionando. Lo que quiero es hacer un copy solo del nombre de LOJA, sin la palabra LOJA:, como estas arriba, en J+5. Pero estas vindo tambien la palabra FONE: Mi String estas asi:
LOJA: São Bento FONE11)9999-9999, pero quando cargo mi codigo viene asi: São Bento FONE11)9, pero debria venir asi: São Bento. Qua hago entonces?

[*Caro*]

Hola Paulao, el ultimo parametro del copy es el número de caracteres y en tu código si se esta incluyendo el FONO mas, puedes arreglarlo así.

Código Delphi [-]
var
 FinLoja : Integer;
begin
 s := 'LOJA: São Bento FONE:11)9999-9999';
 j := AnsiPos('LOJA:',s);
 FinLoja := j+5;
 if j <> 0 then
  Loja := Copy(s,FinLoja,pos('FONE:',s)-FinLoja);

Saluditos