Lector Codigo de Barra

[cecam]

En vez de stringreplace, usamos una funcion propia

function StrTran( const cText, cOrigen, cDesti:string ):string;
var
   nPos:Integer;
begin
  Result := cText;
  if cOrigen<>cDesti then
  begin
      nPos:=Pos(cOrigen, Result);
      while (nPos>0) do
      begin
        Result := Copy( Result, 1, (nPos-1))+cDesti+Copy( Result, nPos+Length(cOrigen), Length(Result) );
        nPos:=Pos(cOrigen, Result);
      end;
  end;
end;

Saludos!!