[PembekalanPRAKERIN2015] CheckBox Pilih Semua Data

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
  if CheckBox1.Checked then
  begin
    Button2.Enabled := False;
    PilihSemuaBaris(DBGrid1);
  end else
  begin
    DBGrid1.SelectedRows.Clear;
  end;
end;