[Elite237]

Hola de nuevo a todos.

Una pregunta (otra vez de validación) como le hago o que codigo debo introducir para que no me deje escribir por asi decirlo el mismo nivel de trabajo. Les mando el codigo que introduci:

procedure TForm7.BitBtn1Click(Sender: TObject);
begin
if Depto.Locate('clave',Edit1.Text[]) then
begin
mensaje:= Application.MessageBox('La clave ya existe');
end;
else
begin
Depto.Insert;
Depto.FieldValues['clave']:=Edit1.Text;
Depto.FieldValues['nombre']:=Edit2.Text;
Depto.FieldValues['descripcion']:=Edit3.Text;
Depto.FieldValues['jefe']:=Edit4.Text;
Depto.Post;
Edit1.Clear;
Edit2.Clear;
Edit3.Clear;
Edit4.Clear;
mensaje:=Application.MessageBox('Los datos se guardaron con éxito!','Mensaje de Confirmación');
end;
end;