zugriffsverletzung - komme nicht mehr weiter

[Delphi-Phil]

ein bissel spaß muss auch sein

Delphi-Quellcode:

unit DruckenUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DBCtrls, Grids, DBGrids, DB, ADODB, StdCtrls, RpDefine, RpCon,
  RpConDS, RpRave;

type
  TDrucken = class(TForm)
    DBGrid1: TDBGrid;
    DBLookupComboBox1: TDBLookupComboBox;
    TblKlassen: TADOTable;
    DSKlassen: TDataSource;
    QrySchueler: TADOQuery;
    DSSchueler: TDataSource;
    Label1: TLabel;
    Label2: TLabel;
    Button1: TButton;
    QryZeugnisSchueler: TADOQuery;
    DBGrid2: TDBGrid;
    DataSource1: TDataSource;
    RvDataSetZeugnis: TRvDataSetConnection;
    RvDataSetZeugnisSchueler: TRvDataSetConnection;
    QrySchuelerName: TADOQuery;
    RvProject1: TRvProject;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormShow(Sender: TObject);
    procedure DSKlassenDataChange(Sender: TObject; Field: TField);
    procedure Button1Click(Sender: TObject);
    procedure DSSchuelerDataChange(Sender: TObject; Field: TField);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Drucken: TDrucken;

implementation

{$R *.dfm}

procedure TDrucken.FormClose(Sender: TObject; var Action: TCloseAction);
begin
TblKlassen.Close;
QrySchueler.Close;
end;

procedure TDrucken.FormShow(Sender: TObject);
begin
TblKlassen.Open;
end;

procedure TDrucken.DSKlassenDataChange(Sender: TObject; Field: TField);
var
KlassenID :Integer;
begin
KlassenID := TblKlassen.FieldByName('id').AsInteger;
QrySchueler.Close;
QrySchueler.Parameters.ParamByName('KlassenID').Value := KlassenID;
QrySchueler.Open;
end;


procedure TDrucken.Button1Click(Sender: TObject);
begin
//hier kommt der fehler!!
RvProject1.Execute;
end;

procedure TDrucken.DSSchuelerDataChange(Sender: TObject; Field: TField);
var
KlassenID : Integer;
IdSchueler : Integer;
begin 
KlassenID := TblKlassen.FieldByName('id').AsInteger;
IdSchueler := QrySchueler.FieldByName('IdSchueler').AsInteger;

QryZeugnisSchueler.Close;
QryZeugnisSchueler.Parameters.ParamByName('IdSchueler').Value := IdSchueler;
QryZeugnisSchueler.Parameters.ParamByName('KlassenID').Value := KlassenID;
QryZeugnisSchueler.Open;

QrySchuelerName.Parameters.ParamByName('IdSchueler').Value := IdSchueler;
QrySchuelerName.Open;
end;




end.

das ist erstmal die unit wo der fehler auftaucht!