[ilichhernandez]

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.