Crear campo en tiempo de ejecucion

[tarco35]

EL codigo funciona correctamente cuando lo ejecuto por primera vez y crea el campo. Pero la segunda vez que lo ejecuto me da error:
List index out of bounds en el "for i:=0 ...

Código Delphi [-]
  If NOT TablaPuntos.Active Then TablaPuntos.Open;
  Exists:= False;
  for i:=0 to TablaPuntos.FieldDefs.Count-1 do
    Exists:= TablaPuntos.Fields[i].FieldName = 'Desglose';
  If Not Exists then begin
    TablaPuntos.Close;
    with SQLReestructuraTabla do begin
      SQL.Text:= 'ALTER TABLE PuntosMedicion ADD Desglose BOOLEAN';
      ExecSQL;
      Close;
    end;
  end;
  If Not TablaPuntos.Active Then TablaPuntos.Open;