Listar Tabelas de um BD

Pelo Help do delphi verifiquei a seguinte função que retorna o nome das tabelas de um banco de dados:

procedure GetTableNames(const DatabaseName, Pattern: string; Extensions, SystemTables: Boolean; List: TStrings);

muito bem, a dúvida é a seguinte:

Quando executo a procedure ele solicita a senha de conexão com o banco, já que um dos parametros que é preciso passar é o Alias de acesso. Já tentei utilizar a propriedade DatabaseName do DataBase, mas ele não reconhece como álias. Existe alguma forma de executar a mesma procedure sem ocorrer o pedido de senha de acesso? o banco é Oracle.
Antecipadamente agradeço