[ecfisa]

Hola.

Empezado por shoulder

Primero Gracias, pero uso delphi7 y me da error en el formatsetting.

Es por eso que hice el comentario en la siguiente línea:

Empezado por ecfisa

Código Delphi [-]
    with FormatSettings do // para XE3 o sup.

Basta con que comentes la línea entera (agregando dos símbolos: //) al comienzo de la misma:

Código Delphi [-]
  // with FormatSettings do // para XE3 o sup.

para que funcione correctamente. Pero, si quisieras sacar el begin-end correspondientes al with, quedará mas prolijo.

Saludos