Hola de nuevo: si el problema es el mismo que el inicial, creo que lo que tendrias que hacer es primero encontrar el numero maximo de ventas y luego filtrar tu tabla segun este numero, algo como :
Código Delphi
[-]
q.Active := false;
q.SQL.Text := 'select * from tabla where ventas = (select max(ventas) as maxim from tabla)'
q.Active := true;
claro esta, traducido a tus tablas. Saludos.
PD: vale, que son tablas separadas.