Lesen und schreiben aus/in Datenbank

[SubData]

Statt .Insert solltest du .Edit verwenden.
Ich nehme jedenfalls mal an, dass du den Wert editieren und nicht neu einfügen willst :>

Ausserdem kannst du diese Zeile:

Td1:= Table1.FieldValues['Stunden'];

in

Td1 := Table1.FieldByName('Stunden').asFloat;

ändern, dann bräuchtest du die StrToFloat Konvertierung nicht mehr.
Natürlich müsstest du dann Td1 auch gleich als Float / Double definieren, anstelle von String.