[RESUELTO] Merezco que me cuelguen de las orejas II

procedure CrearArchivo;
  var
    sNmbrCmp, sHra, sNmbrTbl : string;
    iIndc : integer;
  begin
    sHra := TimeToStr(Now);
    sHra := LeftStr(sHra,2)+MidStr(sHra,4,2);
    sNmbrTbl := 'lp' + IntToStr(DayOfTheYear(Now)) + sHra +'.db';
 
    with TTable.Create(nil) do
    try
      DatabaseName := 'EspecializadosTmp';
      TableName := sNmbrTbl;
      TableType := ttParadox;
 
      FieldDefs.Add('Grupo',ftString,20,True);
      FieldDefs.Add('Codigo',ftString,6,True);
      FieldDefs.Add('Descripcion',ftString, 50, False);
      FieldDefs.Add('Longitud',ftFloat,0,False);
 
      for iIndc := 0 to chcklstboxAcbds.Items.Count -1 do
      begin
        if chcklstboxAcbds.Checked[iIndc] then
        begin
          sNmbrCmp := chcklstboxAcbds.Items.ValueFromIndex[iIndc];
          FieldDefs.Add(sNmbrCmp,ftFloat,0,False);
        end;
      end;
 
      [b]IndexDefs.Add(sNmbrTbl,'Grupo;Codigo',[ixPrimary]);[/b]
 
      CreateTable;
    finally
      Free;
    end;
    tblTmprl.TableName := sNmbrTbl;
    tblTmprl.Exclusive := True;
    tblTmprl.Active := True;
  end;