Анимация - одновременное передвижение двух картинок

void __fastcall TForm1::komb1Click(TObject *Sender)
{
for(int i=232;i>90;i--)
{
komb1->Left=i;
 Application->ProcessMessages();
        Sleep(1);
 }

komb1->Left = i;
komb2->Left = j;
i--; j++;

void __fastcall TForm1::komb1Click(TObject *Sender)
{
  for(int i=232;i>90;i--) {
    komb1->Left=i;
    komb2->Left-=i;
    Application->ProcessMessages();
    Sleep(1);
 }

//---------------------------------------------------------------------------
int starts[] = { 232, 392, 90, 530, 99, 620 };
int ends[] =   { 90,  47,  275,624, 400,510 };
int index = 0, factor_value = 1;
int incr = starts[index], factor = -factor_value;
int *target = &( komb1->Left ); // цель изменений
//---------------------------------------------------------------------------   
void __fastcall TForm1::Timer1Timer(TObject *Sender) {
    
    if ( ! index ) { // здесь делаем то, что нужно сделать до начала выполнения циклов
        zel1->Visible=true;
        knopka1->Visible=false;
        komb1->Visible=true;
    }
    
    *target = incr; // эти две строчки, собственно - весь рабочий цикл
    incr += factor;
    
    if ( factor > 0 ? ( incr > ends[index] ): ( incr < ends[index] ) ) { // если достигнута текущая граница из массива ends[]
        index == ( sizeof( starts ) / sizeof( starts[0] ) - 1 ) ? 
            index = 0: incr = starts[++index]; // если текущий индекс является последним возможным, установить его в 0, иначе увеличить его на единицу и приравнять incr к следующему значению из массива starts[] 
        starts[index] > ends[index] ? 
            ( factor = -factor_value ): ( factor = factor_value ); // если элемент из массива starts[] больше соответствующего элемента из массива ends[], то установить фактор изменения incr в -factor_value(уменьшение), иначе - установить в factor_value(увеличение)
        switch ( index ) { // этот switch соответствует вашему набору циклов for
        case 1: // если индекс стал 1, то целью наших изменений становится komb1->Top
            target = &( komb1->Top );
            break;
        case 2: 
            target = &( komb1->Left );
            break;
        case 3: // если индекс равен 3, значит были выполнены три цикла для картинки komb1 и целью наших изменений становится komb11->Left и так далее...
            komb1->Visible=false;
            komb11->Visible=true;
            target = &( komb11->Left );
            break;
        case 4: 
            target = &( komb11->Top );
            break;
        case 5: 
            target = &( komb11->Left );
            break;
        case 0: // если индекс был сброшен на 0, значит все циклы пройдены и пора сбрасывать все к начальным значениям и вырубать таймер
            target = &( komb1->Left );
            incr = starts[index];
            Timer1->Enabled = false;
            zel1->Visible=false;
            break;  
        }
    }
    
}
//---------------------------------------------------------------------------
void __fastcall TForm1::komb1Click(TObject *Sender)
{
    Timer1->Interval = 1; // можно менять время срабатывания таймера
    factor_value = 3; // можно менять шаг изменения параметров
    
    Timer1->Enabled = true;
}
//---------------------------------------------------------------------------