SQLite: В гриде отображаются данные одной записи для всех записей подряд

sql := 'insert into clients values ((select ifnull(max(id), 0)+1 from clients), '''+name_+''', '''+contacts+''')';
dm.DISQLite3Database1.Execute16(sql);

procedure TfClients.ToolButton1Click(Sender: TObject);
var
  name_, contacts, sql: AnsiString;
begin
  if InputQuery('Новый заказчик','Введите имя заказчика:', name_) then
    if( name_ <> '') then
      if InputQuery('Контакты', 'Введите контактные данные:', contacts) then begin
        sql := 'insert into clients values ((select ifnull(max(id), 0)+1 from clients), '''+name_+''', '''+contacts+''')';
        dm.DISQLite3Database1.Execute16(sql);
        ShowTable;
      end;
end;

procedure TfClients.ShowTable;
begin
  with dm.qClients do begin
    Active := false;
    Active := true;
  end;
end;

procedure TfClients.ShowTable;
begin
  with dm.qClients do begin
    Active := false;
    Active := true;
    StringGrid1.RowCount := 1;
    First;
    while (not Eof) do begin
      StringGrid1.Cells[0,StringGrid1.RowCount-1] := dm.qClients.fieldbyname('name_').AsString;
      StringGrid1.RowCount := StringGrid1.RowCount+1;
      Next;
    end;
  end;
end;