Delphi 10.4.2 Listview Problemi

[Jakarta2]

Daha önceki bütün sürümlerde çalışan kod çalışmıyor daha doğrusu text ile ilgili kodlar hata vermiyor ancak listede yazılar görünmüyor. item çizgileri var yazılar yok. Renkleri, fontları, visible'ları, genişlikleri, yükseklikleri herşeyi değiştirdim yine yazılar görünmüyor.

ikinci bir problem de yine aşağıdaki kodlarda         indirimOlustur(LItem,LImage);  ResimOlustur(LItem,LImage,'resim',150,150); komutlarında access violation hatası veriyor.

procedure datayaekle( ListView:TListView);
Procedure ObjectOlustur( AItem:TListViewItem; LItem: TListItemText; strRefKod, strText:String; iOffsetX, iOffsetY, iWidth,iHeight, iFontSize:Integer; iFontColor: LongInt; bool:Boolean ;iFontStyle: TFontStyles; iAlign : TTextAlign);
begin
   LItem                := TListItemText.Create(AItem);
   LItem.Name           := strRefKod;
   LItem.Font.Size      := iFontSize;
   LItem.TextColor      := iFontColor;
   LItem.Align          := TListItemAlign.Center; // En Sol
   LItem.VertAlign      := TListItemAlign.Leading; // En Üst
   LItem.PlaceOffset.X  := iOffsetX;
   LItem.PlaceOffset.Y  := iOffsetY;
   LItem.TextAlign      := iAlign;
   LItem.Trimming       := TTextTrimming.ttCharacter;
   LItem.IsDetailText   := False;
   LItem.Width          := iWidth;
   LItem.Height         := iHeight;
   LItem.Text           := strText;
   LItem.Visible        := bool;
   LItem.Font.Style     := iFontStyle;
//    LItem.WordWrap := True;
end;

procedure ResimOlustur( AItem:TListViewItem; LImage: TListItemImage; risim:string; irWidth,irHeight:Integer);
begin
 LImage := TListItemImage.Create(AItem);
 LImage.Name := risim; //'Resim';
 LImage.Align := TListItemAlign.Center; // En Sağ
 LImage.VertAlign := TListItemAlign.Leading; // Orta
 LImage.PlaceOffset.X := 20;
 LImage.PlaceOffset.Y := 70;
 LImage.Width := irWidth; //200;
 LImage.Height := irHeight;//200;
 LImage.OwnsBitmap := True;
 LImage.Bitmap := TBitmap.Create(0, 0);
 LImage.Bitmap := resimdata;
end;

Procedure indirimOlustur(AItem: TListViewItem; LImage: TListItemImage);
Begin
 LImage := TListItemImage.Create(AItem);
 LImage.Name := 'yazi';
 LImage.Align := TListItemAlign.Leading;
 LImage.VertAlign := TListItemAlign.Center;
 LImage.PlaceOffset.Y := 0;
 LImage.PlaceOffset.X := 12;
 LImage.Width := 100;
 LImage.Height := 100;
 LImage.OwnsBitmap := True;
 LImage.Bitmap := TBitmap.Create(0, 0);
 Limage.Bitmap := indres;
End;

Var
 litem   : TListViewItem;
 LImage  : TListItemImage;
 MS : TMemoryStream;
 LData,LLabel,LResim : Array[1..26] of TListItemText;

begin
   if ad <> '' then
   begin
     litem := ListView.Items.Add;
     litem.Height := 350;
     litem.Text   := '';

        indirimOlustur(LItem,LImage);
        ResimOlustur(LItem,LImage,'resim',150,150);

       ObjectOlustur( LItem, LData[1], 'Data1' , veri1 , 0, 300,  0, 20, 12, TAlphaColorRec.Red, True, [],TTextAlign.Center );
       ObjectOlustur( LItem, LData[2], 'Data2' , veri2 , 4,  30,  0, 20, 12, TAlphaColorRec.Black, True,[],TTextAlign.Center );
       ObjectOlustur( LItem, LData[3], 'Data3' , veri3 , 0, 260,  0, 25, 13, TAlphaColorRec.Red, True, [Tfontstyle.fsStrikeOut], TTextAlign.Center);
       ObjectOlustur( LItem, LData[4], 'Data4' , veri4, 40, 160,  0, 40, 20, TAlphaColorRec.White, True,[],TTextAlign.Leading );
       ObjectOlustur( LItem, LData[5], 'Data5' , veri5 ,  0,   0,  0,  0,  0, TAlphaColorRec.Black, False,[],TTextAlign.Leading);
       ObjectOlustur( LItem, LData[6], 'Data6' , veri6 ,  0, 280,  0, 20, 17, TAlphaColorRec.Black, True, [Tfontstyle.fsBold],TTextAlign.Center);
    end;
end;