Archivos de Texto y binario (manejar)

[h2o_mx]

Saludos amigos quiero saber como le puedo hacer para usar
archivos de texto, lo que quiero hacer es una bitacora de texto.

los uso de estas dos formas pero no quedan como quiero:

_____________________(1)_________________________

Código Delphi [-]
procedure Bitacora();
var
  Fichero: TextFile;
begin
  AssignFile(Fichero, 'Prueba.txt');
  if fileexists('Prueba.txt') then begin
    Reset(Fichero);
  end else begin
    Rewrite(Fichero);
  end;
  writeLn(Fichero,'cualquier accion');
  CloseFile(Fichero);
end;

el problema aqui es que el reset que sepa solo abrira el
archivo en caso de que exista pero no lo hace, me marca
un error y si se ejecuta el rewrite jala bien.

_____________________(2)_________________________

Código Delphi [-]
type
TReg=record
      Acc: String[50];
      Usu: String[20]
     end;
    TArch=File of TReg;
var
  Archivo: TArch;
   Registro: TReg;
 
procedure Bitacora();
begin
 AssignFile(Archivo,'ARCHIVO.DAT');
 if FileExists('ARCHIVO.DAT') then 
    Reset(Archivo) {Abre el archivo}
     else Rewrite(Archivo); 
 Seek(Archivo,0);
 Registro.Acc:='cualquier accion';
 Registro.Usu:='X usuario';
 Write(Archivo,Registro);
 CloseFile(Archivo);
end;

//este me pone un caracter raro al inicio de cada
insercon(cosa que no me importa mucho),
pero no aplica el writeln, todo me lo escribe
en una sola linea, he intentado asi
Registro.Acc:='cualquier accion'+char(13);
para que me genere un salto de linea
pero nada.

La otra es sobre Archivos Binarios

quiero guardar claves de usuarios y pass en archivos binarios,
como poder usarlos o que me recomiendan?

Espero me halla dado a entender y me puedan ayudar
gracias!!!!