[PembekalanPRAKERIN2015] Tombol Delete

//=== TOMBOL HAPUS =========================================================
procedure TForm1.Button5Click(Sender: TObject);
var
  tombolditekan,i: Integer;
begin
  tombolditekan := MessageDlg('Yakin menghapus?',mtConfirmation ,[mbOK,mbCancel],0);
  if tombolditekan = mrOK then
  begin
    for i:=0 to DBGrid1.SelectedRows.Count-1 do
    begin
      DBGrid1.SelectedRows.Delete;
    end;
  end;
  CheckBox1.Checked := FALSE;
  Button2.Enabled := TRUE;
  Edit1.Clear;
  Edit2.Clear;
  Edit3.Clear;
end;
//==========================================================================