Código Delphi
[-]
procedure TForm2.BT_AceptarClick(Sender: TObject);
begin
vagenda.nombre:=TE_nombre.text;
vagenda.direccion:=TE_direccion.text;
vagenda.telefono:=TE_telefono.text;
write(Nuevo_fichero,vagenda);
showmessage('Alta realizada con exito');
form2.doDestroy;
form2.Close
end;
Este es el codigo(sin controlar errores por si me mete algun campo vacio)