Auxilio

[maugescully]

Hola, estoy haciendo un curso de programacion para delphi y necesito entregar un trabajo práctico, el tema es que estoy trabada porque no logro sortear un problema. Este problema es que mediante la aplicacion debo crear un archivo txt para almacenar informacion de tipo nombre, apellido, etc, y no puedo hacerlo. es decir, logro crear el archivo pero almacena la informacion de manera erronea.. es decir con garabatos EJ: " aaaaa Üý Äl

aaaaaaäE`
$wD \ý ü ²
bbbbbb Üý Äl
"
Como puedo solucionarlo? Les adjunto los codigos:

Unit 1

procedure TForm1.AgregarCliente1Click(Sender: TObject);
var c:Cliente; cod:byte ;
begin
c.Apellido:=Edit1.Text;
c.Nombres:=Edit2.Text;
c.DNI:=StrToInt(Edit3.Text);
z.GrabarCliente(c,cod);
If cod<>0 then ShowMessage('No se pudo Agregar el Cliente.Seguramente no Abrió antes el archivo')
else ShowMessage('Se ha agregado el registro');
end;

unit 2

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

Desde ya muchisimas gracias!!!