title: Populate a database gives strange results
body: <p>I have a database and I need to populate it's first 2 columns on every row. The first column is the date and the second column is an id.</p>
  
  <p>My code is as follows:</p>
  
  <pre><code>.......    
  febr29:array[1..12] of byte = (31,29,31,30,31,30,31,31,30,31,30,31);
  .......
  
  procedure TForm.populate_database;
  var
    i,j,m,n: Integer;
  begin
  
    for i := 1 to 12 do
      for j := 1 to febr29[i] do
         for m := 1 to 9 do
            for n := 1 to 15 do begin
  
               database.tbl1.Append;
               database.tbl1['date']:= inttostr(j)+'.'+inttostr(i)+'.2016';
               database.tbl1['id']:='a'+inttostr(m)+inttostr(n);
               database.tbl1.Post;
  
            end;
  
  end;
  </code></pre>
  
  <p>So basically I need to have all the ids on all the days of the year. But I have a problem with the code above: it gives me some strange output in the database, as in the following picture:</p>
  
  <p><a href="https://i.stack.imgur.com/jUv5S.jpg" rel="nofollow noreferrer"><img src="https://i.stack.imgur.com/jUv5S.jpg" alt="enter image description here"></a></p>
  
  <p>What am I doing wrong?</p>