Paradox Password in code

To give the password of a Paradox table in code, you can use this code:

procedure TForm1.FormCreate(Sender: TObject);

begin

  Session.AddPassWord('MyPass');

  Table1.Acive := True;

end;