Terkadang dalam sebuah program yang kita buat terdapat data berupa teks yang perlu disimpan untuk diakses kembali nantinya, misalnya pengaturan form untuk letaknya, lebar, tinggi, font dsb. Nah untuk itu kita memerlukan sebuah media untuk menampung data tersebut. Solusinya adalah menyimpan data tersebut kedalam subuah file.

Sebagai contoh pertama-tama buat sebuah form dengan desain seperti dibawah ini.

Beri nama Form1 untuk formnya, trus editnya beri nama Edit1 dan untuk label yang besar beri nama Label1. Skenarionya, ketika kita menekan tombol Simpan maka caption dari Label1 akan berubah sesuai teks pada Edit1 dan teks ini akan disimpan untuk diakses kembali. Selain itu Properti width dan height dari Form1 juga akan disimpan.
Untuk itu terlebih dahulu tambahkan variabel berikut pada deklarasi variabelnya :

  F: TextFile;
  teks: string;
  lebar, tinggi: integer;

Kemudian ketikkan skrip ini pada event onClick tombol simpan.

 teks:=Edit1.Text;
 lebar:=Form1.Width;
 tinggi:=Form1.Height;
 Label1.Caption:=teks;
 
 assignfile(F,'data.txt');
 rewrite(F);
 writeln(F,teks);
 writeln(F,lebar);
 writeln(F,tinggi);
 closefile(F);
 showmessage('Pengaturan Disimpan...');

Untuk mengakses data yang kita simpan tadi dan menerapkannya pada form tambahkan skrip dibawah ini pada event onCreate Form1

assignfile(F,'data.txt');
 try
   reset(F);
   readln(F,teks);
   readln(F,lebar);
   readln(F,tinggi);
   closefile(F);
   Label1.Caption:=teks;
   Form1.Width:=lebar;
   Form1.Height:=tinggi;
 except
 end;

Penjelasan :
Pada bagian assignfile, variabel F yang sudah kita definisikan sebagai TextFile menetapkan file data.txt untuk diakses nantinya. Kemudian fungsi reset digunakan apabila kita ingin membaca file didalamnya, yang diikuti oleh perintah readln. Rewrite digunakan apabila kita ingin menulis file tersebut dan diikuti perintah writeln. Jika file belum ada, maka perintah rewrite ini akan membuatkan file-nya, namun jika sudah ada maka data didalamnya akan dihapus dan digantikan data yang baru diinputkan. Fungsi try – except pada event onCreate berfungsi untuk mencoba mengakses file, namun jika file belum ada maka file tidak akan diakses.

Sebagai catatan, kita bisa menggunakan ekstensi apa saja untuk file-nya. Jika ingin meletakkan file-nya diluar folder program, maka pada bagian assign ketikkan path dari file tersebut. Contoh : assigfile(F,'C:\windows\data.txt');
Download source codenya disini