FloatAnomation в цикле

[Kantrobac]

Здравствуйте, недавно приступил к изучению обезьянки, тк необходимо реализовать следующее: есть поле датчиков 30 штук, расположенных квадратом. Над ними проводят объект который меняет их магнитное поле, всё это записывается в двухмерный массив(т.е. в одной строчке(один датчик) будут 0 пока над датчиком не пролетит объект), необходимо визуализировать этот процесс. Решил использовать Plane, на которой закрепил 30 Cube(Рис 1). По задумке столбик должен расти при изменении значения в массиве: 

float mas[3][3] = {{1,0,0},{0,1,0},{0,0,1}};

void __fastcall TForm3D1::Form3DCreate(TObject *Sender)
{
	FloatAnimation1->Parent = Cube1;
	FloatAnimation1->PropertyName = "Scale.Y";
	//FloatAnimation1->StopValue = 1;
	FloatAnimation1->Duration = 1;
	FloatAnimation1->AnimationType = TAnimationType::atIn;
	FloatAnimation1->Interpolation = TInterpolationType::itLinear;
	FloatAnimation1->StartFromCurrent = true;

	FloatAnimation2->Parent = Cube2;
	FloatAnimation2->PropertyName = "Scale.Y";
	//FloatAnimation2->StopValue = 1;
	FloatAnimation2->Duration = 1;
	FloatAnimation2->AnimationType = TAnimationType::atIn;
	FloatAnimation2->Interpolation = TInterpolationType::itLinear;
	FloatAnimation2->StartFromCurrent = true;

	FloatAnimation3->Parent = Cube3;
	FloatAnimation3->PropertyName = "Scale.Y";
	//FloatAnimation3->StopValue = 1;
	FloatAnimation3->Duration = 1;
	FloatAnimation3->AnimationType = TAnimationType::atIn;
	FloatAnimation3->Interpolation = TInterpolationType::itLinear;
	FloatAnimation3->StartFromCurrent = true;
}
void __fastcall TForm3D1::Button1Click(TObject *Sender)
{
        for (int i = 0; i < 3; i++)
		{
			Form3D1->resizecube(i);
		} 
}
void __fastcall TForm3D1::resizecube(int a)
{
	FloatAnimation1->StopValue =  mas[a][0];
	FloatAnimation1->Start();

	FloatAnimation2->StopValue =  mas[a][1];
	FloatAnimation2->Start();

	FloatAnimation3->StopValue =  mas[a][2];
	FloatAnimation3->Start();

	// ShowMessage("");
}

Сделал пример для простого массива. Проблема в том, что если закоментить  ShowMessage(""); то отображается только последняя итерация. Подскажите как сделать так чтобы итерации выводились последовательно, друг за другом. Спасибо 

[Brovin Yaroslav]

Добрый день,

Проектик прикрепите

[Kantrobac]

Вот. Только там много дополнительного мусора, вроде создания потока. Пробовал различные варианты решить проблему.

Monki3d.zip

[Brovin Yaroslav]

Без треда у меня работает.

[Kantrobac]

Без треда у меня работает.

Какая версия RAD Studio? (у меня XE4)

[Brovin Yaroslav]

XE10, Seattle

[Kantrobac]

XE10, Seattle

Не подскажете как можно решить данную проблему на моей версии?

[Равиль Зарипов (ZuBy)]

 

XE10, Seattle

Не подскажете как можно решить данную проблему на моей версии?

 

не нужно строить костыли, установите последнюю стабильную версию студии

[Kantrobac]

XE10, Seattle

Поставил XE10, проблема абсолютно та же. Плюс не могу найти в 10-ке FireMonkey consolapplication, только метрополис. Помогите решить данную проблему. Запускаю проект из XE4 в XE10, 3D Shapes вкладка есть, но проблема та же, если ShowMessage(" ") не закоментить, отображается только последняя итерация цикла.