var
 //lv : TKOLListView;
 b: DWORD;

procedure TForm1.Button1Click(Sender: PObj);
var
 t: TLogBrush;
begin
 //lv := NewListView(Form, lvsList, [], nil, nil, nil);
 //lv.Show;
 t.lbStyle := BS_SOLID;
 t.lbColor := DIB_RGB_COLORS;
 b := CreateBrushIndirect(t);
 form.Caption := Int2Str(b);
end;

procedure TForm1.Button2Click(Sender: PObj);
begin
 //lv.Free;
 form.Caption := Int2Str(integer(DeleteObject(b)));
end;

procedure TForm1.Button1Click(Sender: PObj);
var
 i : Integer;
begin
 for I := 1 to 4000 do begin
   lv := NewListView(Form, lvsList, [], nil, nil, nil);
   lv.Show;
   lv.Free;
 end;
end;

procedure TForm1.Button1Click(Sender: PObj);
var
 i : Integer;
begin
//  //start monkey (strictly speaking amoebe code)
//  for I := 1 to 4000 do
//  begin
//    lv := NewListView(Form, lvsList, [], nil, nil, nil);
//    lv.Show;
//    lv.Free;
//  end;
 for I := 1 to 4000 do
 begin
   // start homo erectus code (strictly speaking: monkey code <smile>)
   lv := NewListView(Form, lvsList, [], nil, nil, nil);
   try  //protect your object!
     lv.Show;
   finally
     lv.Free;
   end;
 end;

end;

 form.BeginUpdate; // Leave the rest of your apps alone, get a rest.
 try  // but make sure you get the screen back when we are finished
   for I := 1 to 4000 do
   begin
   // start homo sapiens code (strictly speaking: homo erectus code <smile>)
     lv := NewListView(Form, lvsList, [], nil, nil, nil);
     try //protect your object
       lv.Show;
     finally
       lv.Free;
     end;
   finally
     Form.EndUpdate;
   end;
end;

procedure TForm1.Button2Click(Sender: PObj);
begin
// double free may look like a leak but isn't
 if Assigned(lv) then lv.Free;
end;

form.BeginUpdate; // Leave the rest of your apps alone, get a rest.
try  // but make sure you get the screen back when we are finished
  for I := 1 to 4000 do
  begin
  // start homo sapiens code (strictly speaking: homo erectus code <smile>)
    lv := NewListView(Form, lvsList, [], nil, nil, nil);
    try //protect your object
      lv.Show;
    finally
      lv.Free;
    end;
  end;
finally
   Form.EndUpdate;
end;
end;

procedure TForm1.Button1Click(Sender: PObj);
var
 i : Integer;
begin
 for I := 1 to 4000 do begin
   lv := NewListView(Form, lvsList, [], nil, nil, nil);
   lv.SetPosition(0, 0).SetSize(20, 20);
   Form.Invalidate;
   lv.Free;
 end;
end;

а так же читаем комменты в коле

   procedure Show;
   {* |<#appbutton>
      |<#form>
      Makes control visible and activates it. }
где тут написано что можно юзать метод с листвью?

// kol.pas
//[...]

interface

//[...]

type
 PWStrList = ^TWstrList;
 {* }

//[...]

   procedure OptimizeForRead;
// >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> Начало блока
 protected
   procedure SetValue(const AName, Value: KOLWideString);
   function GetValue(const AName: KOLWideString): KOLWideString;
 public
   function IndexOfName(AName: KOLWideString): Integer;
   property Values[const AName: KOLWideString]: KOLWideString read GetValue write SetValue;
// <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< Конец блока
 end;

//[...]

implementation

//[...]

procedure TWStrList.OptimizeForRead;
begin
   {$IFDEF TLIST_FAST}
   if  fList <> nil then
       fList.OptimizeForRead;
   {$ENDIF}
end;

// >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> Начало блока
function TWStrList.IndexOfName(AName: KOLWideString): Integer;
var i: Integer;
   L: Integer;
   fCount: integer;
begin
   Result:=-1;
   L := Length( AName );
   if L > 0 then
   begin
     AName := WLowerCase( AName ) + fNameDelim;
     Inc( L );
     fCount := GetCount - 1;
     for i := 0 to fCount do
     begin
       if _WStrLComp( PWideChar( WLowerCase( ItemPtrs[ i ] ) ), PWideChar( AName ), L ) = 0 then
       begin
         Result:=i; exit; {>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>}
       end;
     end;
   end;
end;

procedure TWStrList.SetValue(const AName, Value: KOLWideString);
var
 I: Integer;
begin
 I := IndexOfName(AName);
 if i=-1
 then Add( AName + fNameDelim + Value )
 else Items[i] := AName + fNameDelim + Value;
end;

function TWStrList.GetValue(const AName: KOLWideString): KOLWideString;
var
 i: Integer;
begin
 I := IndexOfName(AName);
 if I >= 0
 then Result := Copy(Items[i], Length(AName) + 2, Length(Items[i])-Length(AName)-1)
 else Result := '';
end;
// <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< Конец блока