Saber el campo con valor mas alto
 

Hola amigos, estoy tratando de calcular cual es el valor mas alto de la query en uno de sus campos (campo ID), el codigo que he echo no da error pero tampoco trabaja....si alguien tiene alguna idea de lo que estoy haciendo mal.... please!!!!
Acepto sugerencias......

Código Delphi [-]
procedure Tform_marcascomerciales.cxButton1Click(Sender: TObject); //nuevo
var valor,valormayor : integer;
begin
qrymarcascom.Last;
qrymarcascom.Insert;
panel1.SendToBack;
//calular registro clave mas alto.
valormayor :=0;
While (not qrymarcascom.Eof) Do
    Begin
      with qrymarcascom Do
        Begin
           valor := fieldbyname('id').AsInteger;
           showmessage(Inttostr(valor));
           if (valor > valormayor) then
               begin
                  valormayor := valor;
                  showmessage('valor maximo' + Inttostr(valormayor));
               end;
           next;
        end;
     end;
showmessage(InttoStr(valormayor));
end;

Gracias y
Saludos.

Hola. No te compliques programando todo el codigo de la funcion, lo podes hacer con una consulta SQL, esto deberia servirte:

Código SQL [-]
SELECT Max(campo)
FROM tabla;

Salu2...

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