Te recomiendo que uses Table1.Append
Pone el registro al final.
Código Delphi
[-]
if not (Table1.IsEmpty) then
Table1.Append
Table1.Edit
Table1.FieldByName('Dato').AsFloat := 0.00;
Table1.Post
O tambien
if not (Table1.IsEmpty) then
Table1.InsertRecord([Datos])
else
begin
Table1.Edit
Table1.FieldByName('Dato').AsFloat := 0.00;
Table1.Post
end;