bir rehber programi yapmaya calisiyorum,ayni adi iki kez girmemesi lazim ama bir kod gelistiremedim; tesekkur ederim

procedure TForm3.Button1Click(Sender: TObject);
begin
Form1.gurupadi.Insert;
Form1.gurupadiADI.AsString:=Edit1.Text;
Form1.gurupadiEVTEL.AsString:=MaskEdit1.Text;
Form1.gurupadiISTEL.AsString:=MaskEdit2.Text;
Form1.gurupadiFAKS.AsString:=MaskEdit3.Text;
Form1.gurupadiGSM1.AsString:=MaskEdit4.Text;
Form1.gurupadiGSM2.AsString:=MaskEdit5.Text;
Form1.gurupadiGSM3.AsString:=MaskEdit6.Text;
Edit1.Text:='';
Form1.gurupadi.Locate('adi',VarArrayOf([Edit1.Text]),[loCaseInsensitive , loPartialKey]);
IF Form1.gurupadiADI.AsString='' THEN
BEGIN
SHOWMESSAGE('İSİM KAYDI EKLENDI');
Form3.Edit1.Text:=Form1.gurupadiADI.AsString;
Form1.gurupadi.Post;
eND
ELSE
SHOWMESSAGE('REHBERDE MEVCUT');
//Form3.Edit1.Text:=Form1.gurupadiADI.AsString;
Edit1.SetFocus;
MaskEdit1.Text:='';
MaskEdit2.Text:='';
MaskEdit3.Text:='';
MaskEdit4.Text:='';
MaskEdit5.Text:='';
MaskEdit6.Text:='';
Form3.Hide;
end;
__________________