uses
  uADPhysMySQLCli, uADPhysMySQLWrapper;

var
  Session: TMySQLSession;
const
  SecureAuthValue: Byte = 0;
begin
  Session := TObject(FDConnection1.ConnectionIntf.CliObj) as TMySQLSession;
  Session.Options[MYSQL_SECURE_AUTH] := @SecureAuthValue;
end;