Listview中的奇怪字符

我有一个Android项目的Listview文本自动高度代码。高度固定，一切正常。当我激活此代码时

LText.Height:=ListView1.getItemTextHeight（LText）+10自动高度可以正常工作，但在粗体上会出现奇怪的字符，有时还会出现“不允许重复”错误消息。
在Windows中工作很好，但在Android上我有这个

    for i := 0 to FDMemTable1.RecordCount -1 do
      begin
        UName := (FDMemTable1.FieldByName('username').Value);
        Descr := (FDMemTable1.FieldByName('descr').Value);
        Ext := (FDMemTable1.FieldByName('ext').Value);
        Url := (FDMemTable1.FieldByName('vurl').Value);
        FCanUpdate := False;
        LItem := ListView1.Items.Add;
        LItem.Data['UName'] := UName;
        LItem.Data['Descr'] := Descr;
        LItem.Data['Ext'] := Ext;
        LItem.Data['Url'] := Url;
        FCanUpdate := True;
        LItem.Adapter.ResetView(LItem);
        FDMemTable1.Next;
      end;
    ListView1.EndUpdate;
end;

procedure TForm7.ListView1UpdatingObjects(const Sender: TObject;
  const AItem: TListViewItem; var AHandled: Boolean);
var
  h: integer;
  LText: TListItemText;
begin
  h := 2;
  LText := AItem.Objects.FindObjectT<TListItemText>('UName_text');
  if LText = nil then
    begin
      LText := TListItemText.Create(AItem);
      LText.Name := 'UName_text';
      LText.PlaceOffset.X := 18;
      LText.PlaceOffset.Y := h;
      LText.TextColor := TAlphaColorRec.Black;
      LText.TextAlign := TTextAlign.Leading;
      LText.TextVertAlign := TTextAlign.Leading;
      LText.Font.Size := 14;
      LText.Font.Style := [TFontStyle.fsBold];
    end;
  LText.Width := (Sender as TListView).Width - 18;
  LText.Text := AItem.Data['UName'].AsString;
  LText.Height := 22;
  h := Round(h + LText.Height +7);

  if AItem.Data['Descr'].AsString <> '' then
  begin
    LText := AItem.Objects.FindObjectT<TListItemText>('Descr_text');
    if LText = nil then
      begin
        LText := TListItemText.Create(AItem);
        LText.Name := 'Descr_text';
        LText.PlaceOffset.X := 18;
        LText.PlaceOffset.Y := h;
        LText.TextColor := TAlphaColorRec.Black;
        LText.TextAlign := TTextAlign.Leading;
        LText.TextVertAlign := TTextAlign.Leading;
        LText.WordWrap := True;
        LText.Font.Size := 13;
        LText.Font.Style := [];
      end;
    LText.Width := (Sender as TListView).Width - 20;
    LText.Text := AItem.Data['Descr'].AsString;

//    LText.Height := ListView1.getItemTextHeight(LText)+10;

    LText.Height := 30;

    h := Round(h + LText.Height + 5);
  end;
  AItem.Height := h;
  AHandled := True;
end;

i:=0到FDMemTable1.RecordCount-1 do的

开始
UName:=（FDMemTable1.FieldByName（'username'）.Value）；
Descr:=（FDMemTable1.FieldByName（'Descr'）.Value）；
Ext:=（FDMemTable1.FieldByName（'Ext'）.Value）；
Url:=（FDMemTable1.FieldByName（'vurl'）.Value）；
FCanUpdate:=假；
LItem:=ListView1.Items.Add；
文字数据['UName']：=UName；
文字数据['Descr']：=Descr；
文字数据['Ext']：=Ext；
文字数据['Url']：=Url；
FCanUpdate:=真；
LItem.Adapter.ResetView（LItem）；
表1.下一步；
结束；
ListView1.EndUpdate；
结束；
过程TForm7.ListView1更新对象（常量发送方：ToObject；
常量AItem:TListViewItem；变量AHandled:Boolean）；
变量
h：整数；
LText:TListItemText；
开始
h:=2；
LText:=AItem.Objects.findobject（'UName_text'）；
如果LText=nil，则
开始
LText:=TListItemText.Create（AItem）；
LText.Name:=“UName_text”；
LText.PlaceOffset.X:=18；
LText.PlaceOffset.Y:=h；
LText.TextColor:=TAlphaColorRec.Black；
LText.TextAlign:=TTEXTAIGN.Leading；
LText.TextVertAlign:=TTextAlign.Leading；
LText.Font.Size:=14；
LText.Font.Style:=[TFontStyle.fsBold]；
结束；
LText.WITH:=（发送方作为TListView）。宽度-18；
LText.Text:=AItem.Data['UName'].AsString；
L文字高度：=22；
h:=圆形（h+L文本高度+7）；
如果AItem.Data['Descr'].AsString''，则
开始
LText:=AItem.Objects.findobject（'Descr_text'）；
如果LText=nil，则
开始
LText:=TListItemText.Create（AItem）；
LText.Name:=“描述文字”；
LText.PlaceOffset.X:=18；
LText.PlaceOffset.Y:=h；
LText.TextColor:=TAlphaColorRec.Black；
LText.TextAlign:=TTEXTAIGN.Leading；
LText.TextVertAlign:=TTextAlign.Leading；
LText.WordWrap:=True；
LText.Font.Size:=13；
LText.Font.Style:=[]；
结束；
LText.Width:=（发送方作为TListView）。宽度-20；
LText.Text:=AItem.Data['Descr'].AsString；
//LText.Height:=ListView1.getItemTextHeight（LText）+10；
L文字高度：=30；
h:=圆形（h+LText.高度+5）；
结束；
AItem.高度：=h；
a处理：=正确；
结束；

我手机上的截图。

这有什么问题？
我发现这段代码有问题。
我将此过程称为TThread.CreateAnonymousThread。
当我去掉这个时，一切都很好。我发布了正确的代码，用代码创建ListView项目（在本例中，从url创建2个文本和1个图像）

procedure TForm9.LVC;
var
  i, TLikes, LVIHeight, ImgH, ImgW: integer;
  UName, Descr, Ext, ThumbUrl, Url: UnicodeString;
  LItem : TListViewItem;
begin
  RESTRequest1.Execute;
  FDMemTable1.First;
  for i := 0 to FDMemTable1.RecordCount -1 do
begin
  UName := FDMemTable1.FieldByName('username').Value;
  Descr := FDMemTable1.FieldByName('descr').Value;
  Ext := FDMemTable1.FieldByName('ext').Value;
  ThumbUrl := FDMemTable1.FieldByName('image_url').Value;
  Url := FDMemTable1.FieldByName('vurl').Value;
  TLikes := FDMemTable1.FieldByName('TotalLikes').Value;
  if FDMemTable1.FieldByName('imgh').Value <>  '' then
    begin
      ImgH := StrToInt(FDMemTable1.FieldByName('imgh').Value);
      ImgW := StrToInt(FDMemTable1.FieldByName('imgw').Value);
      LVIHeight := round((ListView1.Width / ImgW) * ImgH);
    end
  else
    begin
      ImgH := 0;
      ImgW := 0;
      LVIHeight := 0;
    end;
  ListView1.BeginUpdate;
    FCanUpdate := False;
    LItem := ListView1.Items.Add;
    LItem.Data['UName'] := UName;
    LItem.Data['Descr'] := Descr;
    LItem.Data['Ext'] := Ext;
    LItem.Data['ThumbUrl'] := ThumbUrl;
    LItem.Data['Url'] := Url;
    LItem.Data['Likes'] := TLikes;
    LItem.Data['ImgH'] := ImgH;
    LItem.Data['ImgW'] := ImgW;
    LItem.Data['LVIHeight'] := LVIHeight;
    FCanUpdate := True;
    LItem.Adapter.ResetView(LItem);
  ListView1.EndUpdate;
  FDMemTable1.Next;
end;
end;

procedure TForm9.FormCreate(Sender: TObject);
begin
  FCanUpdate := True;
end;

procedure TForm9.FormShow(Sender: TObject);
begin
   LVC;
end;

procedure TForm9.ListView1UpdatingObjects(const Sender: TObject;
  const AItem: TListViewItem; var AHandled: Boolean);
var
  h: integer;
  LText: TListItemText;
  LImage: TListItemImage;
  LImageURL: String;
  foto : TBitmap;
begin
  if not FCanUpdate then
    Exit;

  h := 2;
  LText := AItem.Objects.FindObjectT<TListItemText>('UName_text');
  if LText = nil then
   begin
     LText := TListItemText.Create(AItem);
     LText.Name := 'UName_text';
     LText.PlaceOffset.X := 18;
     LText.PlaceOffset.Y := h;
     LText.TextColor := TAlphaColorRec.Black;
     LText.TextAlign := TTextAlign.Leading;
     LText.TextVertAlign := TTextAlign.Leading;
     LText.Font.Size := 14;
     LText.Font.Style := [TFontStyle.fsBold];
   end;
  LText.Width := (Sender as TListView).Width - 18;
  LText.Text := AItem.Data['UName'].AsString;
  LText.Height := 22;
  h := Round(h + LText.Height +7);

  if AItem.Data['ThumbUrl'].AsString <> '' then
  begin
    LImage := AItem.Objects.FindObjectT<TListItemImage>('MImage');
    if LImage = nil then
    begin
      LImage := TListItemImage.Create(AItem);
      LImage.Name := 'MImage';
      LImage.Bitmap:=Nil;
      LImage.Align := TListitemalign.Leading;
      LImage.VertAlign := TListItemAlign.Leading;
      LImage.ScalingMode := TImageScalingMode.StretchWithAspect;
      LImage.PlaceOffset.X := 0;
      LImage.PlaceOffset.Y := h;
      LImage.Bitmap := TBitmap.Create;
      LImage.OwnsBitmap := True;
      LImage.Visible := True;
    end;
    LImage.Width := ListView1.Width;
    LImage.Height := AItem.Data['LVIHeight'].AsInteger;
    LImageURL := AItem.Data['ThumbUrl'].AsString;
      TThread.CreateAnonymousThread(
         procedure
            begin
              foto := TBitmap.Create;
              fnLoadImgFromUrl(LImageURL, foto);
              LImage.OwnsBitmap := True;
              LImage.Bitmap := foto;
            end).Start;
    h := Round(h + LImage.Height + 5);
  end;

  if AItem.Data['Descr'].AsString <> '' then
  begin
    LText := AItem.Objects.FindObjectT<TListItemText>('Descr_text');
    if LText = nil then
      begin
        LText := TListItemText.Create(AItem);
        LText.Name := 'Descr_text';
        LText.PlaceOffset.X := 18;
        LText.PlaceOffset.Y := h;
        LText.TextColor := TAlphaColorRec.Black;
        LText.TextAlign := TTextAlign.Leading;
        LText.TextVertAlign := TTextAlign.Leading;
        LText.WordWrap := True;
        LText.Font.Size := 13;
        LText.Font.Style := [];
      end;
    LText.Width := (Sender as TListView).Width - 20;
    LText.Text := AItem.Data['Descr'].AsString;
    LText.Height := ListView1.getItemTextHeight(LText)+10;
    h := Round(h + LText.Height + 5);
  end;
  AItem.Height := h;
  AHandled := True;
end;

程序TForm9.LVC；
变量
i、 TLikes、LVIHeight、ImgH、ImgW：整数；
UName，Descr，Ext，ThumbUrl，Url:unicodesting；
LItem:TListViewItem；
开始
RESTRequest1.执行；
表1.第一；
对于i:=0到FDMemTable1.RecordCount-1 do
开始
UName:=FDMemTable1.FieldByName（'username'）。值；
Descr:=FDMemTable1.FieldByName（'Descr'）。值；
Ext:=FDMemTable1.FieldByName（'Ext'）。值；
ThumbUrl:=FDMemTable1.FieldByName（'image_url'）。值；
Url:=FDMemTable1.FieldByName（'vurl'）。值；
TLikes:=FDMemTable1.FieldByName（'totalikes'）。值；
如果FDMemTable1.FieldByName（'imgh'）。值为“”，则
开始
ImgH:=stroint（FDMemTable1.FieldByName（'ImgH'）.Value）；
ImgW:=stroint（FDMemTable1.FieldByName（'ImgW'）.Value）；
LVIHeight:=圆形（（ListView1.Width/ImgW）*ImgH）；
结束
其他的
开始
ImgH:=0；
ImgW:=0；
LVIHeight:=0；
结束；
ListView1.BeginUpdate；
FCanUpdate:=假；
LItem:=ListView1.Items.Add；
文字数据['UName']：=UName；
文字数据['Descr']：=Descr；
文字数据['Ext']：=Ext；
LItem.Data['ThumbUrl']：=ThumbUrl；
文字数据['Url']：=Url；
文字数据['Likes']：=TLikes；
文字数据['ImgH']：=ImgH；
文字数据['ImgW']：=ImgW；
文字数据['LVIHeight']：=LVIHeight；
FCanUpdate:=真；
LItem.Adapter.ResetView（LItem）；
ListView1.EndUpdate；
表1.下一步；
结束；
结束；
过程TForm9.FormCreate（发送方：TObject）；
开始
FCanUpdate:=真；
结束；
程序TForm9.FormShow（发送方：ToObject）；
开始
LVC；
结束；
过程TForm9.ListView1更新对象（常量发送方：ToObject；
常量AItem:TListViewItem；变量AHandled:Boolean）；
变量
h：整数；
LText:TListItemText；
LImage:tlistitemage；
LImageURL:String；
foto:TBitmap；
开始
如果没有FCA更新，则
出口
h:=2；
LText:=AItem.Objects.findobject（'UName_text'）；
如果LText=nil，则
开始
LText:=TListItemText.Create（AItem）；
LText.Name:=“UName_text”；
LText.PlaceOffset.X:=18；
LText.PlaceOffset.Y:=h；
LText.TextColor:=TAlphaColorRec.Black；
LText.TextAlign:=TTEXTAIGN.Leading；
LText.TextVertAlign:=TTextAlign.Leading；
LText.Font.Size:=14；
LText.Font.Style:=[TFontStyle.fsBold]；
结束；
LText.WITH:=（发送方作为TListView）。宽度-18；
LText.Text:=AItem.Data['UName'].AsString；
L文字高度：=22；
h:=圆形（h+L文本高度+7）；
如果AItem.Data['ThumbUrl'].AsString''，则
开始
LImage:=AItem.Objects.findobject（'MImage'）；
如果LImage=nil，则
开始
LImage:=TListItemImage.Create（AItem）；
LImage.Name:=“MImage”；
位图：=Nil；
LImage.Align:=TListitemalign.Leading；
LImage.VertAlign:=TListItemAlign.Leading；
LImage.ScalingMode:=TImageScalingMode.StretchWithAspect；
LImage.PlaceOffset.X:=0；
LImage.PlaceOffset.Y:=h；
LImage.Bitmap:=TBitmap.Create；
LImage.OwnsBitmap:=真；
LImage.Visible:=真；
E