object Form1: TForm1 
Left = 230 
Top = 186 
Width = 407 
Height = 137 
Caption = "Form1" 
Color = clBtnFace 
Font.Charset = DEFAULT_CHARSET 
Font.Color = clWindowText 
Font.Height = -13 
Font.Name = "MS Sans Serif" 
Font.Style = [] 
OldCreateOrder = False 
PixelsPerInch = 120 
TextHeight = 16 
object Memo1: TMemo 
Left = 208 
Top = 8 
Width = 185 
Height = 89 
Lines.Strings = ( 
"Memo1") 
TabOrder = 0 
end

procedure RemoveEventHandlers(SL:TStrings);
const
  Key1 = ' On';
  Key2 = ' = ';

var
  i, k1,k2 : Integer;
  S        : String;

begin
  for i := SL.Count-1 downto 0 do begin
    S := SL[i];

    k1 := pos(Key1, S);
    k2 := pos(Key2, S);

    if (k1 <> 0) AND (k2 > k1) then begin
      // remove it:
      SL.Delete(i);
    end;

  end;
end;

TM: TMethod;
Begin
TM.Data:= NewForm1;
TM.Code:= NewForm1.MethodAddress('NewForm1DblClick');
SetMethogProp(NewForm1, 'OnDblClick', TM);
End;

// Раздел interface в Инспекторе объектов
type
  Donbass = (DNR, LNR);
  // Структуру будем хранить не в стеке, а в динамической памяти
  PMain = ^TMain; // PMain - Указатель на структуру
  TMain = record // TMain - Имя структуры (записи)
    Kind: Donbass; // Категория типа: DNR или LNR
    N: Integer; // Отступ текста слева (в символах)
    FObject: TObject; // Текущий объект
    PInfo: PPropInfo; // Текущее свойство
    LastStr: String[75];
  case Donbass of
    DNR: (Info: PPropInfo; ShowChildren: Boolean); // Поле для свойств
    LNR: (Value: LongInt; Name: ShortString); // Поле для значении
  end;
    
// Раздел implementation

// Установка новых значений свойств
procedure TFormInsp.SetPropRTTI;
var
 P: PMain; // Указатель на текущий объект-свойство
 X: Integer;
 NewInt: Integer; // Новое значение для целых чисел
 NewReal: Real; // Новое значение для дробных чисел
 S: string; // Строка в редакторе Edit
 TM: TMethod;
begin
 if Modified then // При внесении изменения в поле Edit
 Begin
  S:= (Parent as TInspector).EditZero.Text; // Текущая строка в редакторе Edit
  with (Parent as TInspector) do
  P:= Pointer(Items.Objects[ItemIndex]); // Текущая строка инспектора
  If P^.Kind = DNR then
   Case P^.Info^.PropType^.Kind of
    // Целые числа
    tkInteger:
        Begin
         Val(Text, NewInt, X);
         if x = 0 then
          begin // Установим новое значение
           SetOrdProp(P^.FObject, P^.Info, NewInt);
          end
         else
          begin
           if S<>'' then
            begin
             try
              raise EIntErrorRTTI.Create('Ошибка при присваивании значения "'+S+'" целочисленному типу');
             except
              on E: Exception do
              begin
               ShowFormError(E, 'SetOrdProp(P^.FObject, P^.Info, NewInt);', ModName);
              end;
             end;
            end
           else
            begin
             try
              raise EIntErrorRTTI.Create('Ошибка при присваивании пустого значения целочисленному типу');
             except
              on E: Exception do
              begin
               ShowFormError(E, 'SetOrdProp(P^.FObject, P^.Info, NewInt);', ModName);
              end;
             end;
            end;
          end;
        End;
    // Числа с плавающей точкой
    tkFloat:
        Begin
         Val(Text, NewReal, X);
         if x = 0 then
          begin // Установим новое значение
           SetFloatProp(P^.FObject, P^.Info, NewReal);
          end
         else
          begin
           try
            raise EFloatErrorRTTI.Create('Ошибка при присваивании значения "'+S+'" вещественному типу');
           except
            on E: Exception do
            begin
             ShowFormError(E, 'SetFloatProp(P^.FObject, P^.Info, NewReal);', ModName);
            end;
           end;
          end;
        End;
    // Перечисление
    tkEnumeration:
        Begin
         x:= GetEnumValue(P^.Info^.PropType^, Text);
         if x <> -1 then
          begin // Установим новое значение
           SetOrdProp(P^.FObject, P^.Info, X);
          end
         else
          begin
           try
            raise EEnumErrorRTTI.Create('Ошибка при присваивании значения "'+S+'" перечисляемому типу.');
           except
            on E: Exception do
            begin
             ShowFormError(E, 'SetOrdProp(P^.FObject, P^.Info, X);', ModName);
            end;
           end;
          end;
        End;
    // Строки
    tkString, tkLString, tkWString:
        begin
         try // Установим новое значение
          if Length(Text)<255 then
          begin
           SetStrProp(P^.FObject, P^.Info, Text);
          end
          else
          begin
           raise EStringErrorRTTI.Create('Длинна строки превышает 255 символов.');
          end;
         except
          on E: Exception do
          begin
           ShowFormError(E, 'SetStrProp(P^.FObject, P^.Info, Text);', ModName);
          end;
         end;
        end;
        // Символы
    tkChar:
        begin
         try
          if S<>'' then
          begin
           SetOrdProp(P^.FObject, P^.Info, StrToInt(S));
          end
          else
          begin
           raise ECharErrorRTTI.Create('Ошибка при присваивании пустого значения символьному типу.');
          end;
         except
          on E: Exception do
          begin
           ShowFormError(E, 'SetOrdProp(P^.FObject, P^.Info, StrToInt(S));', ModName);
          end;
         end;
        end;
       //
   end
  else
  begin
   MessageBeep(0);
  end;
 end;
  { Вот здесь по-логике должно происходить присваивание, но его нет
  if P^.Info^.PropType^.Kind = tkMethod then
  begin
   TM.Data:= NewForm1; // Я явно указываю объект для проверки
   TM.Code:= NewForm1.MethodAddress('NewForm1DblClick');
   SetMethodProp(NewForm1, 'OnDblClick', TM); // Явно указываю свойство
   // Этот код должен добавить в DFM-файл строку OnDblClick = NewForm1DblClick ,
   // но этого не происходит
  end; }
end;