Escribir en archivos con Delphi

[JuanOrtega]

Hola estoy estudiando sobre como escribir en todo tipo de archivos con Delphi y llegue a este codigo :

Código Delphi [-]
var
  openfile: TextFile;
begin
      AssignFile(openfile, 'login.exe');
      Append(openfile);
      WriteLn(openfile,'[username]usuario-password[username]');
      CloseFile(openfile);
end;

Este codigo escribe al final de cualquier archivo en este caso escribo en un ejecutable los datos (al final) del login del usuario para usar despues en el administrador , lo mejor de este codigo que hice fue que no necesito usar Classes solo los uses por defecto.

¿ Hay mejores alternativas a este codigo sin usar Clasess o este es codigo esta bien como esta ?