[khvalera]

Чуть конкретнее.

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
If Key=#13 then
begin

if not Table2.Locate('Nazva',Edit1.Text,[]) then
         Table2.Edit;
         Table2.Insert;
         Table2.Fields[1].AsString:=Edit1.Text;
          Edit1.Text:='';
   end
   else Edit1.Text:='';