Problema con Consulta

[Salnhack]

a ver cuando muestro el resultado de la consulta

me pone lo siguiente

ejemplo

tengo en la tabla plan los siguientes planes

id_plventa plventa id_mes id_concventa
40---------150.00-----112---------79 // plan del mes de enero de venta der software plan 150
41---------160.00-----112---------80 // plan del mes de enero de Mantenimiento plan 160

en el dbgrid me deve mostrar

conceto de venta----------Plan
Venta de Software -------150
Mantenimiento -----------160


pero me muestra lo siguiente


conceto de venta----------Plan

Venta de Software -------150
Venta de Software -------160
Mantenimiento -----------150
Mantenimiento -----------160

me repite todos los coscepto por cada plan aunque no le corresponda

la cosulta es la siguiente que utilizo es la siguiente

Código Delphi [-]
var 
  id_mes:Integer; //variable que almacenara id del mes selecionado
begin
 //seleciono el mes y se lo asigno a la variable
   with DataModule4.Query1 do
     begin
      close;
      SQL.Clear;
      SQL.Add('Select (id_mes) from mes where descmes=:mes');
      ParamByName('mes').AsString:=suiDBLookupComboBox2.Text;
      Open;
      id_mes:=FieldByName('id_mes').AsInteger;
    end;
// cargo la cosulta en el query vinculado al dbgris pasando como condicion la variable que me representa el mes
   with datamodule4.Query4 do
    begin
      Close;
      SQL.Clear;
      SQL.Add('Select Conceptoventa.concventa,Planventa.plventa from Conceptoventa,Planventa where Planventa.id_mes=:mes');
      ParamByName('mes').AsInteger:=id_mes;
      Open;
    end;
   
end;