with Query do
begin
Close;
SQL.Clear;
SQL.Add('SELECT SERVICIOS.DESCSERVICIOS ');
SQL.Add('FROM SERVICIOS, VENTA ');
SQL.Add('WHERE VENTA.ID_SERVICIOS = SERVICIOS.ID_SERVICIOS ');
SQL.Add('AND VENTA.ID_MES = :MES');
ParamByName('MES').AsString:= suiDBLookupComboBox2.Text;
Open;
end;