Поиск в файле счерез поле Edit

[shilovec5377]

Привет всем. Есть программа которая записывает введенные данные в поле Edit в файл.
Вот сам код:

procedure TForm1.Button2Click(Sender: TObject);
var
  f: TextFile;
 begin
 if (Edit1.Text = ' ') or  (Edit1.Text = '')  then
 ShowMessage ('Вы же ничего не ввели! Введите данные')
 else
      begin
  AssignFile(f, 'd:\папка\23');
  Append(f);
  WriteLn(f, 'edit1.text);
  ShowMessage ('Данные успешно сохранены');
  CloseFile(f);
      end;
end;

а как можно сделать, чтобы можно было организовать поиск по файлу с помощью поля Edit, и если нашли это слово, то по нажатию кнопки можно было бы удалить это найденое слово.

спасибо всем кто поможет.

[BDA]

Если данные пишутся часто, и файл не очень большого размера, то лучше загружать данные в stringlist при запуске программы и выгружать при закрытии.
Тем более, что удалить слово из файла гораздо сложнее, чем из stringlist.
В stringlist можно пройти по всем строкам и сравнить с edit. Удалять командой delete.

[FaTaL]

Не использовать старые добрые методы Паскаля типа Assign Append и т.п., а работать через TStringList;