[kainchu3102]

me estaria marcando un error en esta linea

Delete(sClaves, 1, 1); // Se elimina la ',' inicial que sobra


[dcc32 Warning] Fprecio.pas(75): W1050 WideChar reduced to byte char in set expressions. Consider using 'CharInSet' function in 'SysUtils' unit.