procedure TForm1.FormCreate(Sender: TObject);
begin
DBGrid1.Options := DBGrid1.Options + [dgMultiSelect];
end;
procedure InsertSelected(grd: TDBGrid; des: TFDQuery);
var
i: Integer;
begin
if grd.SelectedRows.Count = 0 then Exit;
for i := 0 to grd.SelectedRows.Count-1 do
begin
grd.DataSource.DataSet.GotoBookmark(TBookmark(grd.SelectedRows.Items[i]));
des.SQL.Clear;
des.SQL.Add('INSERT INTO DESTINO (NAME, CAPITAL)');
des.SQL.Add('VALUES(:NAME, :CAPITAL)');
des.ParamByName('NAME').Value := grd.DataSource.DataSet.FieldByName('NAME').Value;
des.ParamByName('CAPITAL').Value := grd.DataSource.DataSet.FieldByName('CAPITAL').Value;
des.ExecSQL;
end;
end;
procedure TForm1.btnInsertarClick(Sender: TObject);
begin
InsertSelected(DBGrid1, FDQueryDestino);
end;