Necesito traer todas las tablas de una base

[peripla]

Para ello utilizo lo siguiente :

  With frmRegistro do begin
    cmbtabla.Clear;
    st := 'SELECT nameas a FROM sysobjects WHERE (xtype = ' + QuotedStr('U') + ') ORDER BY name ';
    AbreQuery(st,rs);
    While not rs.Eof do begin
      cmbtabla.items.Add(rs.fieldbyname('a').AsString);
     rs.Next;
    end;

  end;

El tema es que no encuentra el campo name, por ello me devuelve un error.
Cuando listo "select * from sysobjects......" Tampoco me trae el campo name, alguien me puede ayudar ? Muchas gracias, utilizo delphi 6 y sql server 2000.