sql - запрос с добавлением неповторяющихся записей

procedure TForm23.BitBtn1Click(Sender: TObject);
var
  i: Integer;
begin
  if Edit1.Text <> '' then
    begin
      if OpenDialog1.Execute then
        begin
          try
            ConnectionExcel.Connected:=False;
            ConnectionExcel.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;' +  'Data Source=' + Opendialog1.FileName + ';' + 'Extended Properties=Excel 8.0;';
            ConnectionExcel.Connected:=True;
            ExcelQuery.Active := False;
            ExcelQuery.SQL.Clear;
            ExcelQuery.SQL.Add('SELECT * FROM [' + Edit1.Text + '$]');
            ExcelQuery.Active := True;
            BitBtn2.Enabled := True;
            for i:=0 to DBGridExcel.Columns.Count-1 do
              DBGridExcel.Columns[i].OptimizeWidth;
          except
            ConnectionExcel.Connected:=False;
            MessageBox(Handle,
                      PChar('Не удалось подключиться!'),
                      PChar('Ошибка!'),
                      MB_OK+MB_ICONWARNING);
          end;
        end;
    end else
      begin
        MessageBox(Handle,
                      PChar('Необходимо ввести имя первого листа Excel!'),
                      PChar('Ошибка!'),
                      MB_OK+MB_ICONWARNING);
      end;
end;
 
procedure TForm23.BitBtn2Click(Sender: TObject);
begin
  DBGridExcel.DataSource.DataSet.First;
  DataModule2.StudentsQuery.DisableControls;
  while not DBGridExcel.DataSource.DataSet.eof do
    begin
      with DataModule2.GrupQuery do
        begin
          Close;
          SQL.Clear;
          SQL.Add('INSERT INTO grup (code_group) VALUES' +
                  ' (SELECT DISTINCT Группа FROM [' + Edit1.Text + '])');
          Open;
        end;
      with DataModule2.StudentsQuery do
        begin
          Append;
          FieldByName('fio').Value := DBGridExcel.DataSource.DataSet.FieldByName('ФИО').Value;
          FieldByName('code').Value := DBGridExcel.DataSource.DataSet.FieldByName('Шифр').Value;
          FieldByName('code_group').Value := DBGridExcel.DataSource.DataSet.FieldByName('Группа').Value;
          Post;
        end;
      DBGridExcel.DataSource.DataSet.Next;
    end;
  DataModule2.StudentsQuery.Requery;
  DBGridExcel.DataSource.DataSet.EnableControls;
  DBGridExcel.DataSource.DataSet.EnableControls;
  DataModule2.StudentsQuery.EnableControls;
end;

with DataModule2.GrupQuery do
        begin
          Close;
          SQL.Clear;
          SQL.Add('INSERT INTO grup (code_group) VALUES' +
                  ' (SELECT DISTINCT Группа FROM [' + Edit1.Text + '])');
          Open;
        end;