procedure TForm1.btn1Click(Sender: TObject);
begin
   with smdbgrid.datasource.dataset do
     begin
      first;
      disablecontrols;
       while not EOf do
        begin
          if fields[x].value = True then
           begin
             //insert ke table
           end;
           Next;
        end;
       enablecontrols;
     end;
end;