Código Delphi [-] if Archivo[i] <> '' then
if Archivo[i] <> '' then
Código Delphi [-] if Trim(Archivo[i]) <> '' then
if Trim(Archivo[i]) <> '' then