fastreport ile önizleme

[bilgetemiz]

slm fastreport ile çıktı almadan önce önizleme yapmak istiyorum yanlız;
program kisibilgilerix1;

uses
Forms,
okulx in 'okulx.pas' {Form1},
kisibilgilerix in 'kisibilgilerix.pas' {Form2},


{$R *.res}

begin

Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.CreateForm(TForm2, Form2);
Application.Run;

end.

ayrı bir form açılıp hata veriyor hatayı bulamadım.

procedure TForm2.DBGrid1DblClick(Sender: TObject);
begin
close;

end;

procedure TForm2.Edit2Change(Sender: TObject);
begin

adodataset1.Filter := format('Adi like ''%s*''', [Edit2.Text]);
adodataset1.Filtered:=Edit2.Text<>'';

end;

procedure TForm2.BitBtn1Click(Sender: TObject);
begin
close;
end;

procedure TForm2.FormShow(Sender: TObject);
begin
ADODataSet1.Open;
ADODataSet1.Append;
end;

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
form1.show;
form1.ADODataSet1.close;
form1.ADODataSet1.Filter:= format('(kimliknumarasi LIKE %s)', [ADODataSet1.fieldbyname('kimliknumarasi').AsString]); //kişi bilgilerindeki kaydı çift tıklama ile form1'e aktarır
form1.ADODataSet1.filtered:=true;
form1.ADODataSet1.Open;

end;




procedure TForm2.SpeedButton3Click(Sender: TObject);
begin

frxReport1.ShowReport(true);
end;

end.

[vedatkaba]

1- formların ikiside başlangıçta oluşmuş gösterime hazır durumda
2-dbgridin doubleclik olayına neden close komutunu yazdınız anlamadım ?

Sorun orda olmasın.yada hatanzı yazın ona göre çözüm bulalım.