hala pana.
en estos dias tenia problemas paresidos al que planteas.
y lo que hice en compañia de mis amigos fue:
hacer un procedimiento igual al insertar con la mismas condicion para poder insertar, pero con otra variable.
y en el bonton de insertar se pone una condicion que no permita que la insercion sea igual a la que ya este, en este caso seria el nombre.
ejemplo:
Código Delphi
[-]procedure TFrmcamaradecomercio.bibinsertarClick(Sender: TObject);
var
corrovorar:string;
begin
corrovorar:=Ednombre.Text;
pos:=empresa.repetirDato(corrovorar);
if pos>0 then
begin
empresa.insertar(Ednombre.Text,EdNit.Text,EdPropietario.Text,EdDireccion.Text,EdTelefono.Text);
biblimpiarclick(sender);
end
else
ShowMessage('este arreglo ya esxiste');
end;
sin olvidar que antes se debe hacer el procedimiento para insertar, (preferiblemente en una unidad de codigo aparte), al igual que la incersion de validad que es = solo con otra variable.
saludos.