Loop não está funcionando

baixo a minha procedure. As linhas com aspas(quote) não funciona, ou seja, eu consigo carregar a variavel texto com vazio(´´), mas não entra no break. Porque será?

procedure TForm1.CarregaCupom;
var
i:Integer;
positem:Boolean;
texto:String;
begin
if inicupom then
begin
positem := False;
k := AnsiPos(´ITEM CÓDIGO ST´,s);
if k <> 0 then
begin
loop := true;
Readln(Arq,s);
while loop do
begin
end;
Linha.Add(´60´ + StrZero(StrToInt(texto),2));
// Linha.Add(´60´ + StrZero(StrToInt(texto),2) + StrZero(StrToInt(Copy(s, 4,4)),4)+
// StrZero(StrToInt(Copy(s,);
Readln(Arq,s);
k := AnsiPos(´SUBTOTAL R$´,s);
if k <> 0 then
ISubTot := ´60´ + StrZero(StrToInt(LimpaTexto(Copy(s,k+38,18))),18);

end;
loop := false;
end;//Meios de pagto
end;//Fim do inicupom }
end;