[Investment]

  if not table1.active then table1.open;
  table1.edit;
  table1.fieldbyName('Nombre').AsString := dbedit1.text;
  try
    table1.post
  except
    Showmessage('Error insertando registro');
  end;