Работа с файлами в delphi

[ihimaru]

Задание: Создать текстовый файл. Заполнить его произвольным
числом строк. Удалить из файла две первые и две последние строки и реализовать функцию добавления
строки с экрана в начало и конец файла.

Как открывать файл изменять его в memo и сохранять я разобрался

procedure Tlab6.Button1Click(Sender: TObject);
var f:TextFile;
begin
if OpenDialog1.Execute then
Memo1.Lines.LoadFromFile(OpenDialog1.FileName);
end;

procedure Tlab6.Button2Click(Sender: TObject);
begin
if OpenDialog1.Execute then
Memo1.Lines.SaveToFile(OpenDialog1.FileName);
end;

Получается, что в принципе все эти задачи можно делать в ручную в программе, но хотелось бы узнать как это можно сделать автоматически. Заранее спасибо!

[ihimaru]

Тема закрыта я разобрался. Если кто заинтересуется могу выложить исходник.