Fórum Gostaria de saber pq minha variável não carrega #360005

procedure TForm1.CarregaCupom; var i:Integer; positem:Boolean; descricao, desc_acre, unitario, seqitem, codigo, subtot, tot, tam, qtd, tx:String; begin lin := 0; positem := False; if inicupom then begin Readln(Arq,s); k := AnsiPos(´ITEM CÓDIGO ST DESCRIÇÃO VL ITEM(R$)´,s); if k <> 0 then begin loop := True; Readln(Arq,s); while loop do begin if not positem then for i := 1 to length(s) do //Para pegar a sequencia do item begin inc(lin); seqitem := Trim(seqitem + s[i]); if (s[i] = ´ ´) or (s[i] = ´´) then begin positem := True; Break; end; end;//Fim do for end;//Fim do loop end; //Fim do k end; end;