Hola Salnhack.
No he echo la prueba, pero creo que se podría resumir a una sola consulta, más o menos así:
Código Delphi
[-]
...
with DataModule4 do
begin
Query1.Close;
Query1.SQL.Clear;
Query1.Add('SELECT Conceptoventa.concventa, Planventa.plventa');
Query1.Add('FROM Conceptoventa, Plantaventa, mes');
Query1.Add('WHERE mes.descmes = :FOUND');
Query1.Add('AND Plantaventa.id = mes.descmes');
Query1.ParamByName('FOUND').AsString:= suiDBLookupComboBox2.Text;
Query1.Open;
end;
...
Un saludo.