Validar registro antes de insertar

[Elite237]

Yo hice algo parecido a lo que tu quieres. Lo que valide es que si la clave(ya sea empleado o curso) se repetia entonces que me mandara un mensaje de que ya existe esa clave, a mi parecer, es mejor que le crees una clave a tu empleado y a tus cursos, puesto que los nombre de empleados se repetiran y tambien de los cursos pero los que los diferenciara sera tu clave.Espero y me haya explicado.El codigo que le introduci fue el siguiente

procedure TForm3.Button1Click(Sender: TObject);
begin
  if curso.Locate('Folio',edit1.Text,[]) then
  begin
    Edit1.Clear;
    mensaje:=Application.MessageBox('El numero de folio ya existe','Error de entrada')
  end
    else
  begin
  curso.Insert;
  curso.FieldValues['Nombre_curso']:=Edit1.Text;
  curso.FieldValues['Clave_CT']:=ComboBox1.Text;
  curso.FieldValues['Capacidad']:=ComboBox19.Text;
  curso.FieldValues['Tipo_curso']:=ComboBox2.Text;
  curso.FieldValues['Especialidad']:=Edit3.Text;
  curso.FieldValues['Tipo_proveedor']:=ComboBox3.Text;
  curso.FieldValues['Nivel_capacitacion']:=ComboBox4.Text;
  curso.FieldValues['Subprograma']:=ComboBox5.Text;
  curso.FieldValues['Proceso']:=ComboBox6.Text;
  curso.FieldValues['Subproceso']:=ComboBox7.Text;
  curso.FieldValues['Area_formacion']:=ComboBox8.Text;
  curso.FieldValues['Tipo_informacion']:=ComboBox9.Text;
  curso.FieldValues['Grupo_eventos']:=ComboBox10.Text;
  curso.FieldValues['Fecha_inicio']:=DateTimePicker1.Time;
  curso.FieldValues['Lugar_imparticion']:=ComboBox11.Text;
  curso.FieldValues['Duracion_dias']:=Edit4.Text;
  curso.FieldValues['Duracion_horas']:=Edit5.Text;
  curso.FieldValues['Frecuencia']:=ComboBox12.Text;
  curso.FieldValues['Horario']:=ComboBox13.Text;
  curso.FieldValues['Costo']:=Edit6.Text;
  curso.FieldValues['Renglon_gasto']:=ComboBox14.Text;
  curso.FieldValues['Concepto']:=ComboBox16.Text;
  curso.FieldValues['Instructor_I']:=ComboBox15.Text;
  curso.FieldValues['Instructor_E']:=ComboBox17.Text;
  curso.FieldValues['Folio']:=Edit7.Text;
  curso.Post;
  Edit1.Clear;
  Edit2.Clear;
  Edit3.Clear;
  Edit4.Clear;
  Edit5.Clear;
  Edit6.Clear;
  Edit7.Clear;
  ComboBox1.Clear;
  ComboBox2.Clear;
  ComboBox3.Clear;
  ComboBox4.Clear;
  ComboBox5.Clear;
  ComboBox6.Clear;
  ComboBox7.Clear;
  ComboBox8.Clear;
  ComboBox9.Clear;
  ComboBox10.Clear;
  ComboBox11.Clear;
  ComboBox12.Clear;
  ComboBox13.Clear;
  ComboBox14.Clear;
  ComboBox15.Clear;
  ComboBox16.Clear;
  ComboBox17.Clear;
  mensaje:=Application.MessageBox('Los datos se guardaron con éxito!','Mensaje de Confirmación');
end;
end;