为什么我实现的插入只能插入一条纪录？

为什么我实现的插入只能插入一条纪录？再插入第二次就会出错。但是下次再运行还是这个情况
代码如下：
with Query1 do
    begin
      Query1.Active:=true;
      Close;
      SQL.Clear;
      //SQL.Add(format(SQLstr,[Trim(DBEdit1.Text),Trim(DBEdit2.Text),Trim(DBEdit5.Text),DateTimePicker1.Date,Trim(DBEdit4.Text),Trim(Edit2.Text)]))
      SQL.Add('insert into college values (:college_id,:college_name,:master,:relation_style,:description)');
      ParambyName('college_id').AsString:=Trim(Edit1.Text);
      ParambyName('college_name').AsString:=Trim(Edit2.Text);
      ParambyName('master').AsString:=Trim(Edit3.Text);
      ParambyName('relation_style').AsString:=Trim(Edit4.Text);
      ParambyName('description').AsString:=Trim(Edit5.Text);
      ExecSQL;
      ShowMessage('操作已成功!');