1:
2:
3:
4:
5:
6:
7:
8:

  pStep:=Treeview.Items.Count div 100;
  pNext:=pStep;
  while ...
    if (isObject(tn)) and (assigned(callback)) and (tn.AbsoluteIndex>pNext) then
    begin
      callback((100*tn.AbsoluteIndex) div treeview.items.count,'');
      inc(pNext,pStep);
    end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:

  X := Treeview.Items.Count;
  pStep:=X div 100; 
  pNext:=pStep; 
  while ... 
    if (isObject(tn)) and (assigned(callback)) and (tn.AbsoluteIndex>pNext) then 
    begin 
      callback((100*tn.AbsoluteIndex) div X ,''); 
      inc(pNext,pStep); 
    end;					

1:

if assigned(Comp) then freeandnil(comp);					

1:

        if copy(tn.Text,1,2)<>'On' then //fehler wegen fehlender event-methoden beheben					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

function isCharAtPos(s:pchar; c:char; p: integer):boolean; // ungefährliche funktion, da bei ein leerer oder zu kurzer string durch IsBadReadPtr abgefangen wird
begin
  result := false;
  if (p = 0) or (s=nil) then exit;
  inc(s,p-1);
  if not IsBadReadPtr(s,1) then begin
    if s^ = c then result := true;
  end;
end;

function isFirstChar(s:pchar; c:char):boolean;
begin
  result := isCharAtPos(s,c,1);
end;

...
        if not ((isFirstChar(pchar(tn.Text),'O')) and (isCharAtPos(pchar(tn.Text),'n',2))) then					

1:
2:
3:
4:
5:
6:
7:

      if (copy(s,1,1)='i') then // bei jedem durchlauf ein string alloziert
      begin
        if copy(s,1,6)='inline' then  // und wenn der mit 'i' anfängt, gleich nochmal
          s:='object'+copy(s,7,length(s)-6);
        if copy(s,1,9)='inherited' then // und nochmal, fall die vorherige bedingung nicht zutraf
          s:='object'+copy(s,10,length(s)-9); 
      end;					

1:
2:
3:
4:
5:
6:
7:

      if (isFirstChar(pchar(s),'i')) and IsCharAtPos(pchar(s),'n',2) then //überprüfe direkt an der speicheradresse ob der string mit 'in' beginnt: aufwand: ca 40 zeilen assembler
      begin
        if copy(s,1,6)='inline' then // und nur falls der mit 'in' anfängt, wird dann mit speicher rumhantiert...
          s:='object'+copy(s,7,length(s)-6);
        if copy(s,1,9)='inherited' then
          s:='object'+copy(s,10,length(s)-9);
      end;					

1:
2:
3:
4:

procedure TForm_DFMInspector.FormDestroy(Sender: TObject);
begin
  freeObjects;
end;					

1:
2:
3:
4:

procedure TForm_DFMInspector.SetOIOnlySize;
begin
  freeObjects;
...					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:

//functions_u.pas:
procedure FreeSLObjects(list:TStrings);
var i:integer;
begin
  for i:=0 to list.Count-1 do
    if assigned(list.Objects[i]) then
    begin
      list.Objects[i].free;
      list.Objects[i]:=nil;
    end;
end;
//rttifunctions_u.pas
procedure GetComponentProps(AComponent:string;List:TStrings;AppendSubclasses:boolean);
var
...
begin
  //classe:=getclass(AComponent);
  FreeSLObjects(list);
  list.clear;

//addproperty_u.pas:
procedure TForm_DFMAdd.FormDestroy(Sender: TObject);
begin
  FreeSLObjects(cb_Name.Items);
  FreeSLObjects(cb_SubClass.Items);
end;