Загрузка/чтение из файла

[~Psycho~]

Доброго времени суток, уважаемые форумчане!
Научите, пожалуйста, загружать строки из/в файла
Код:

Begin
 Form1.Label1.Caption := Form2.Edit1.Text;
Form2.ModalResult := mrOk;
if Form2.Edit1.Text = '' then 
Begin
Form2.modalresult := mrCancel;
End;
End;

Думаю код объяснять ненадо
Объясните пожалуйста, как загружать в файл при нажатии на button и читалось из файла при FormCreate

[Leo08]

var
F:textfile;
S:string;
Begin
Assignfile(f, имя_файла);
//если тебе надо переписать уже существующий файл или создать новый, то пиши Rewrite(f); если надо читать из существующего файла
reset(f);  если надо записать в существующий файл append(f);
//Для записи строк в файл пиши Writeln(f,'example'); для чтения readln(f,s);
Closefile(f);
End;

[ZvEr_HaCkEr]

Почитайте это.