Añade un Objeto TDatabase y un Objeto TSession en delphi, enlazalos por sus propiedades, en el evento OnPassword del Session añade:
Deberías poner a false la propiedad LoginPrompt del TDatabase a False.
Código Delphi
[-]
procedure TDTM.MiSessionPassword(Sender: TObject; var Continue: Boolean);
begin
Session1.AddPassword('micontrasena');
Continue := true;
end;
Saludos