[Casimiro Notevi]

Empezado por kainchu3102

Me sirvio de mucho tu codigo solo lo modifique un poco,y me oriento bastante. lo dejo para que alguien le sirva.
procedure TFORMSELECT1.BitBtn4Click(Sender: TObject);
var
i: Integer;

begin
if DBGSELECT1.SelectedRows.Count = 0 then
begin
Exit;
end
else
begin
for i := 0 to DBGSELECT1.SelectedRows.Count-1 do
begin
DBGSELECT1.DataSource.DataSet.GotoBookmark(TBookmark(DBGSELECT1.SelectedRows.Items[i]));
DataModule1.FDQINS_RES2.SQL.Clear;
DataModule1.FDQINS_RES2.SQL.Add('INSERT INTO resultados(id_tur_res, fec_res)');
DataModule1.FDQINS_RES2.SQL.Add('VALUES(:ID_TUR_RES, :FEC_RES)');
DataModule1.FDQINS_RES2.ParamByName('ID_TUR_RES').Value := DBGSELECT1.DataSource.DataSet.FieldByName('id_tur').Value;
DataModule1.FDQINS_RES2.ParamByName('FEC_RES').Value := DBGSELECT1.DataSource.DataSet.FieldByName('fec_tur').Value;
DataModule1.FDQINS_RES2.ExecSQL;
end;
end;

end;

No olvides usar las etiquetas para código:

Código Delphi [-]

procedure TFORMSELECT1.BitBtn4Click(Sender: TObject);
  var
  i: Integer;

begin
  if DBGSELECT1.SelectedRows.Count = 0 then
  begin
   Exit;
  end
  else
  begin
   for i := 0 to DBGSELECT1.SelectedRows.Count-1 do
   begin
     DBGSELECT1.DataSource.DataSet.GotoBookmark(TBookmark(DBGSELECT1.SelectedRows.Items[i]));
     DataModule1.FDQINS_RES2.SQL.Clear;
     DataModule1.FDQINS_RES2.SQL.Add('INSERT INTO resultados(id_tur_res, fec_res)');
     DataModule1.FDQINS_RES2.SQL.Add('VALUES(:ID_TUR_RES, :FEC_RES)');
     DataModule1.FDQINS_RES2.ParamByName('ID_TUR_RES').Value    := DBGSELECT1.DataSource.DataSet.FieldByName('id_tur').Value;
     DataModule1.FDQINS_RES2.ParamByName('FEC_RES').Value := DBGSELECT1.DataSource.DataSet.FieldByName('fec_tur').Value;
     DataModule1.FDQINS_RES2.ExecSQL;
   end;
  end;
end;