// NameObj = например 'Form1: TForm1'
// NameEvent = например 'OnDblClick = NewForm1DblClick'
// B = Флаг записи или очистки строки, True - запишем, False - сотрем
Procedure ScanDFM(NameObj, NameEvent: string = '', B: boolean);
var 
 TS: TStringList;
 P: string;
 i: integer;
begin
 P:= ExtractFilePath(Application.ExeName)+'EXE\';
 try
  TS:= TStringList.Create;
  TS.LoadFromFile(P+'unit1.dfm');
  // Сканируем файл и находим описание объекта, например
  // object Form1: TForm1 или ListBox22: TListBox
  // i будет содержать номер найденой строки
  if B = True then
  begin
   // Запишем строку OnDblClick = NewForm1DblClick
   for i:= 0 to TS.Count-1 do
   if Pos('object '+NameObj, TS.Strings[i])<>0 then
   begin
    break;
   end;
   TS.Insert(i+1, NameEvent);
  end
  else
   begin
    // Удалим строку OnDblClick = NewForm1DblClick
    for i:= 0 to TS.Count-1 do
    if Pos(NameEvent, TS.Strings[i])<>0 then
    begin
     break;
    end;
   TS.Delete(i);
   end;
  // Сохраним результат
  TS.SaveToFile(P+'unit1.dfm');
 finally
  FreeAndNil(TS);
 end;
end;
// вызов: 
// ScanDFM('Memo247: TMemo','OnChange = Memo247Change', True); - Запишем
// ScanDFM('','OnChange = Memo247Change', False); - Стираем