agregar registros de tedit a dbgrid

[edgar_prospero]

ya logre insertar un registro pero ahora mi problema es que si inserto otro nuevo me sustituye el primero, como le puedo hacer para agregar varios registros aqui va mi codigo de lo que llevo

Código Delphi [-]
form4.tabla.close();
 form4.tabla.SQL.Text := 'select * from entradas where codigo=:codigo';
  form4.tabla.Params[0].Value := codigo.Text;
    form4.tabla.Open;
      form4.tabla.Insert;


     form4.tabla.FieldByName('codigo').asString:=codigo.text;
     form4.tabla.FieldByName('unidad').asString:=unidad.text;
     form4.tabla.FieldByName('nombre').asString:=nombre.text;
     form4.tabla.FieldByName('unidad').asString:=unidad.text;
     form4.tabla.FieldByName('cantidad').asString:=cantidad.text;
     form4.tabla.FieldByName('precio').asString:=precio.text;
     form4.tabla.FieldByName('importe').asString:=importe.text;