[gonza_619]

bien ya funciono lo hice completo, me convenia usar un datetimepicker

Código Delphi [-]
with Query1 do
      begin
        Close;
        SQL.Text:= 'SELECT * FROM alucurso WHERE curso ='+inttostr(x)+'and alumno ='+quotedstr(dbedit6.Text)+'and fecha_insc =:fecha';
        query1.ParamByName('Fecha').AsDate:=DatetimePicker1.date;
        Open;
        if not IsEmpty then
          begin
            MessageDlg('Datos EXISTENTES, debe ingresar otros datos',mtError,[mbOk],0);
           // NomE.SetFocus;
          end
          else
          begin
          showmessage('los datos son validos, puede realizar la inscripcion');
          button4.Visible:=true;
          end;
      end;

gracais como siempre por la ayuda