Código Delphi [-] for I := Cod.Count-1 downto 0 do begin ... Cod.Delete(I); ... end;
for I := Cod.Count-1 downto 0 do begin ... Cod.Delete(I); ... end;
Código Delphi [-] Cod.Clear;
Cod.Clear;