Игорь

procedure TMainForm.ButtonClick(Sender: TObject);
var
 men: TMatchCollectionEnumerator;
begin
  men := TRegEx.Matches('one two three', '\w+').GetEnumerator;

  while men.MoveNext do
  begin
    men.Current.Value
  end;

  men.Free;
end;

Смекнули?

Units
- System.RegularExpressions
- System.Generics.Collections

Решение!

lvProjectItem.Data['image_status']:= TValue.From(ImageList.Bitmap(TSize.Create(32,32), 1));

Коллеги!

UTF8ToString и есть решение!

Спасибо!

Из потока работать не будет, в моём случае, поток создавал THttpClient
То есть я не мог выполнить синхронизацию.

Решение:
Использовал класс TTHread
и выполнял синхронизацию.