[[coso]]

prueba esto a ver...

Código Delphi [-]
 
q.Active := false;
q.SQL.Text := 'select * from tabla where ventas = (select max(ventas) as maxim from tabla)
q.Active := true;

no estoy seguro de si funcionara, pero la idea seria esa. saludos.