Gracias, ...
Código Delphi
[-]
dm.qrymarcascomerciales.SQL.clear;
dm.qrymarcascomerciales.sql.add('Select MAX(id) From marcascomerciales');
dm.qrymarcascomerciales.open;
valormayor := dm.qrymarcascomerciales.fieldbyname('MAX').AsInteger;
showmessage(InttoStr(valormayor));
Con este codigo ahora resulta.. !!! Gracias
Saludos