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?