procedure TForm4.zFormDesigner1GetScriptProc(Sender, Instance: TObject;
  pInfo: PPropInfo; var ProcName: String);
begin
  ProcName := '';
  if Instance is TComponent then
    if zFormDesigner1.Root = Instance then
      ProcName := EventsList.Items.Values[PInfo^.Name]
    else
      ProcName := EventsList.Items.Values[(Instance as TComponent).Name + '.' + PInfo^.Name];
end;