Ayuda con este problema

[emiliano_b]

Me acoste a dormir un rato porque no me daban mas las neuronas... Me parece bien tu propuesta, y lo primero es: porque no me guarda bien las cosas en el txt, y comohago saltos de linea!!! Les paso el codigo.
en la unit2:

procedure TArchivo.AgregarCliente(c:Cliente;var b:byte);
  begin
  {$I-}
  Seek(Archi, FileSize(archi));
  {$I+};
  b:=IOResult;
    If b=0 then
      Write(Archi,c);
  end;

en la unit1

procedure TForm1.AgregarCliente1Click(Sender: TObject);
var c:Cliente; b:byte;
  begin
  Edit1.ReadOnly:=false;
  Edit2.ReadOnly:=false;
  Edit4.ReadOnly:=false;
  c.nombres:=Edit1.Text;
  c.Apellido:=Edit2.Text;
  c.DNI:=StrToInt(Edit3.Text);
  c.saldo:=StrToFloat(Edit4.Text);
    Archivo.AgregarCliente(c,b);
    If b<>0 then ShowMessage('No se pudo agregar el registro. Seguramente no abrió el archivo correspondiente.')
    else ShowMessage('Se ha agregado el registro');
  Edit1.Text:='';
  Edit2.Text:='';
  Edit3.Text:='';
  Edit4.Text:='';
  end;

asi me imprime en el txt:Juan t™ i Carlos& t™ & Á6* Tö u,;~Jose t™ i Perez t™ & Á6* Tö u,;~
nose rian mucho, estoy aprendiendo...