Problema con Consulta

[Salnhack]

quien me pude ayudar y decirme que hay mal en este codigo

Código Delphi [-]
var id_mes:Integer;
begin
  with DataModule4.Query1 do
      begin
       close;
       SQL.Clear;
       SQL.Add('Select (id_mes) from mes where descmes='+ QuotedStr(suiDBLookupComboBox2.Text));
       Open;
       id_mes:=FieldByName('id_mes').AsInteger;
      end;
  With DataModule4.Query4 do
   begin
    Close;
    SQL.Clear;
    SQL.Add('Select cultivos.desccultv,plsiembra.plsiembra from cultivos,plsiembra where plsiembra.pid_mes=:mes');
    ParamByName('mes').AsInteger:=id_mes;
    Open;
   end;

cunado lo compilo me dice que faltan parametros