SortExt example for Delphi

procedure TForm1.btnSortExtClick(Sender: TObject);
begin
   LEADImgList1.SortExt(True, True, False, 0);
end;