создание множества обьектов image с добавление картнки из папки! я запутался в коде!

$combo = c("combobox1")->items->selected;
$id = c("listBox1")->items->selected;

// 1 строка
if ( c("listBox1")->itemIndex == 0) {
$bl = 300;
$dl = 50;
}
if ( c("listBox1")->itemIndex == 1) {
$bl = 600;
$dl = 50;
}
if ( c("listBox1")->itemIndex == 2) {
$bl = 900;
$dl = 50;
}
if ( c("listBox1")->itemIndex == 3) {
$bl = 1200;
$dl = 50;
}

// 2 строка
if ( c("listBox1")->itemIndex == 4) {
$bl = 300;
$dl = 300;
}
if ( c("listBox1")->itemIndex == 5) {
$bl = 600;
$dl = 300;
}
if ( c("listBox1")->itemIndex == 6) {
$bl = 900;
$dl = 300;
}
if ( c("listBox1")->itemIndex == 7) {
$bl = 1200;
$dl = 300;
}




$btn = new TMImage( c("Form1") );
$btn->parent = c("Form1");
$btn->name = $r;
$btn->loadFromFile ("c:/base/photo/$combo/$id.jpg");
$btn->w = 200;
$btn->h = 200;
$btn->x = $bl;
$btn->y = $dl;
$btn->proportional;
$btn->center;
c("listBox1")->itemIndex +=1;