txt в listbox и редактирование

[Giza]

Помогите пожалуйста в написание программы, или если есть уже существующий дайте ссылку.
Сам в дельфи не очень, а прога очень нужна. Но под рукой есть только дельфи.
Работает программа так:
1. Открывает *.txt файл в listbox, но только определенные строки начинающий например на 'begin'.
2. Кликаем два раза на строку в listbox и она показывается в Edit

procedure TForm1.ListBox1DblClick(Sender: TObject);
begin
  Edit1.Text := ListBox1.Items[ListBox1.ItemIndex];
end;

3. Редактируем в Edit и жмем Enter и он сохраняет изменение в listbox.
4. Жмем на button2 и он сохраняет его в тот же *.txt в те же строчки откуда они брались.

Помогите очень надо.