Para dar a senha de uma tabela paradox no programa

Procedure TForm1.FormCreate(Sender: TObject);
begin
Session.AddPassWord('MyPass');
Table1.Active := True;
end;