DB auffüllen

[aaaaaaaaaa_10]

Das war mein Ansatz
t:TTable (meine DB)

Delphi-Quellcode:

procedure TFiles.DatenlueckenFuellen;
var   i: integer;
begin
  with t do
  begin
    t.Open;
    t.Last;
    if DaySpan (Date, StrToDate(t.Fields[0].Value)) <> 0 then
      if SecondsBetween(Time,StrToTime(t.Fields[1].Value)) > 15 then
      begin
        t.Append
        for i := 0 to t.IndexFieldCount - 1 do
        begin
          t.Fields[i].Value := 'no';  
        end;
        t.Post;
      end;
    t.Close;
  end;
end;