[[rruz]]

debes reemplazar
st := 'SELECT nameas a FROM sysobjects WHERE (xtype = ' + QuotedStr('U') + ') ORDER BY name ';

por
st := 'SELECT [name] as a FROM sysobjects WHERE (xtype = ' + QuotedStr('U') + ') ORDER BY [name] ';