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

procedure TSystemProcs.FillCheckListBox(Box: TCheckListBox; Fill: String; Delimiter: String);
var DummyArray: TStrArray;  A: integer;
begin
  DummyArray:=SystemProcs.DivideString(Fill,Delimiter);
  Box.Items.Clear;

  for A:= 0 to High(DummyArray) do
    Box.Items.Add(DummyArray[A]);

  for A:= 0 to Box.Items.Count-1 do
    Box.Checked[A]:=True;

  Box.Sorted:=True; 
  Box.Sorted:=False;

end;					

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

procedure FillCheckListBox(Box: TCheckListBox);
var  A: integer;
begin
  Box.Clear;
  Box.Items.BeginUpdate;
  Try
    for A:= 0 to 9 do
    begin
      Box.Items.Add(IntToStr(A)+ ' Alles OK');
      Box.Checked[A]:=True;
    end;
    Box.Sorted:=True;
  finally
    Box.Items.EndUpdate;
    Box.Sorted:=False;
  end;
end;					

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:
27:
28:
29:
30:

class function TObject.InheritsFrom(AClass: TClass): Boolean;
{$IFDEF PUREPASCAL}
var
  ClassPtr: TClass;
begin
  ClassPtr := Self;
  while (ClassPtr <> nil) and (ClassPtr <> AClass) do
    ClassPtr := PPointer(Integer(ClassPtr) + vmtParent)^;
  Result := ClassPtr = AClass;
end;
{$ELSE}
asm
        { ->    EAX     Pointer to our class    }
        {       EDX     Pointer to AClass               }
        { <-    AL      Boolean result          }
        JMP     @@haveVMT
@@loop:
        MOV     EAX,[EAX]
@@haveVMT:
        CMP     EAX,EDX
        JE      @@success
        MOV     EAX,[EAX].vmtParent
        TEST    EAX,EAX
        JNE     @@loop
        JMP     @@exit
@@success:
        MOV     AL,1
@@exit:
end;
{$ENDIF}					

1:
2:

Box.Free; 
Box:=nil;					

1:

FreeAndNil(Box);