加密的数据库的读取？

Question

数据库为Paradox7,Insys.DB,别名dd
Insys.DB已加密   密码为password
现要从数据库Insys.DB内读取记录赋值给EDIT1，请问如何通过Insys.DB密码的检验？
也就是应该在下面代码中????????????的地方加入哪些语句，先打开数据库以便引用？
procedure TForm1.Button1Click(Sender: TObject);
begin
?????????????????????????????????
table1.DatabaseName:='dd';
table1.TableName:='insys.db';
table1.Active:=true;
datasource1.DataSet:=table1;
DBGrid1.DataSource:=DataSource1;
...............
end;

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
begin
?????????????????????????????????
table1.DatabaseName:='dd';
table1.TableName:='insys.db';
Table1.DBSession.AddPassWord('Your PassWord'); 
Table1.Open; 
datasource1.DataSet:=table1;
DBGrid1.DataSource:=DataSource1;
...............
end;