Unter bestimmten Umständen kein Wert im Edit

[franktron]

Ich habe Dynamisch erstellte Numberboxen(FMX) Delphi 10.2.3 mit IDE Fix
Wenn ich Neue Daten eingeben will Sind beim Schreiben keine Daten mehr vorhanden bei Edit geht das aber.

Was kann die Ursache sein.

Hier der Code von neu

Delphi-Quellcode:

SetButtons(1);
  FormHelper.Felder(Self,False,1);
  FormHelper.Felder(Self,True,1);
  IsNew:=True;
  AktGruppenID:=0;

Hier der von Edit

Delphi-Quellcode:

SetButtons(1);
  FormHelper.Felder(Self,True,1);
  IsNew:=False;

Erstellung der Edits

Delphi-Quellcode:

For i:=0 To GruppeQ.Count-1 do
  begin
    Tab:=TTabItem.Create(Self);
    Tab.Parent:=tbc1;
    Tab.Name:='Tab_'+IntToStr(i);
    Tab.Text:=GruppeQ.Items[i].Name;

    label1:=TLabel.Create(Self);
    label1.Parent:=Tab;
    label1.Position.X:=10;
    label1.Position.Y:=10;
    label1.Width:=120;
    label1.Text:='Stundenstatz';
    label1.Name:='Label_S_'+IntToStr(i);

    Edit1:=TNumberBox.Create(Self);
    Edit1.Parent:=Tab;
    Edit1.Position.X:=140;
    Edit1.Position.Y:=10;
    Edit1.Width:=50;
    Edit1.Tag:=1;
    Edit1.ValueType:=TNumValueType.Float;
    Edit1.Name:='Edit_S_'+IntToStr(GruppeQ.Items[i].ID);
  end;

Speichern der Daten

Delphi-Quellcode:

DBAccess1.Gruppe:=AktGruppenID;
    DBAccess1.ID:=AktItemID;
    DBAccess1.Name:=Edit_Name1.Text;
    DBAccess1.Gruppe1:=SummenGr.Items[Combo_GruppenSumme.ItemIndex].ID;

    For i:=0 To DBAccess1.Summen.Count-1 do
    Begin
      Edit:=FindComponent('Edit_S_'+IntToStr(DBAccess1.Summen.Items[i].GSID)) AS TNumberBox;
      if Assigned(Edit) then
      Begin
        DBAccess1.Summen.Items[i].Summe:=Edit.Value;//Hier ist nur bei neu immer 0 drin
      End;
    End;

    if IsNew then
    Begin
      DBAccess1.ID:=0;
      DBAccess1.Neu;
    End
    Else
      DBAccess1.Edit;
    AktItemID:=DBAccess1.Schreiben;