problema con ficheros

[liriko]

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)