You can use OnGetIdName
event to tell Aurelius which identifiers should be double quoted:
(TSQLGeneratorRegister.GetInstance.GetGenerator('MSSQL') as TAnsiSQLGenerator)
.OnGetIdName :=
function(AName: string): string
begin
Result := AName;
if SameText(AName, 'User') then
Result := '"' + AName + '"';
end;