agregar registros de tedit a dbgrid

[edgar_prospero]

que hay aqui con un problemilla para ver si me pueden echar la mano resulta que en un form5 tengo varios tedit los cuales quiero llenar y mediante un boton mandar ea informacion al form4 donde tengo un dbgrid, entonces qiero meter los registros que yo vaya necesitando, pero no lo e podido lograr este es el codigo con el que estoy intentando pero no me inserta nada de informacion:

Código Delphi [-]
procedure TForm5.guardarClick(Sender: TObject);
begin
form4.tabla.close();
 form4.tabla.SQL.Text := 'select * from entradas where codigo=:codigo';
  form4.tabla.Params[0].Value := codigo.Text;

    form4.tabla.Open;

 codigo.Text:=form4.dbgrid1.DataSource.DataSet.FieldByName('codigo').AsString;
 nombre.Text:=form4.dbgrid1.DataSource.DataSet.FieldByName('nombre').AsString;
 cantidad.Text:=form4.dbgrid1.DataSource.DataSet.FieldByName('cantidad').AsString;
 precio.Text:=form4.dbgrid1.DataSource.DataSet.FieldByName('precio').AsString;