Заполнение таблицы

[King_Of_Arthur]

Здравствуйте я заполняю таблицу данными из бд через запрос

  Query7.SQL.Clear;
  Query7.SQL.Text:='select nisl,dv from N_ISL inner join Issp on n_isl.isl=issp.isl where uid='+
                   MTable1.FieldByName('uid').AsString+' and pri=5'+'and isl=1008'+'order by dv';
  Query7.Open;
      Table7.Edit;
      Table7.Append;
      Table7.FieldByName('Naim').AsString:=Query7.FieldByName('nisl').AsString;
       if Query7.FieldByName('dv').AsDateTime<>0 then
         Table7.FieldByName('Date1').AsDateTime:=Query7.FieldByName('dv').AsDateTime;
      Query7.Next;
       if Query7.FieldByName('dv').AsDateTime<>0 then
         Table7.FieldByName('Date2').AsDateTime:=Query7.FieldByName('dv').AsDateTime;
      Query7.Next;
       if Query7.FieldByName('dv').AsDateTime<>0 then
         Table7.FieldByName('Date3').AsDateTime:=Query7.FieldByName('dv').AsDateTime;
      Query7.Next;
       if Query7.FieldByName('dv').AsDateTime<>0 then
          Table7.FieldByName('Date4').AsDateTime:=Query7.FieldByName('dv').AsDateTime;
      Query7.Next;
      Table7.Post;

Таблица посещений. Когда выполняется программа по человеку у которого было всего 2 посещения таблица заполняется как на рисунке. В первые два поля заполняются два посещения этого человека а два последних поля заполняются датами 2 посещения. Как сделать так что если всего два посещения то остальные два поля были пустыми?