Перемещение объектов мышью

[volzhia]

Здравствуйте. Такой случай. я нажатием на кнопку создаю

I[index] = new TImage(this);
I[index]->Parent= this;

Создаю таких картинок до 15 штук. Мне нужно при удержании левой новкой перемещать по форме каждую отдельную картинку.
Сейчас в таймере это происходит так

if (GetAsyncKeyState(49) != 0)/*1..*/ {G=0;}
if (GetAsyncKeyState(50) != 0) {G=1;}
if (GetAsyncKeyState(51) != 0) {G=2;}
if (GetAsyncKeyState(52) != 0) {G=3;}
if (GetAsyncKeyState(53) != 0) {G=4;}
if (GetAsyncKeyState(54) != 0) {G=5;}
if (GetAsyncKeyState(55) != 0) {G=6;}
if (GetAsyncKeyState(56) != 0) {G=7;}
if (GetAsyncKeyState(57) != 0)/*..9*/ {G=8;}
if (GetAsyncKeyState(VK_LBUTTON) != 0){
I[G]->Top=yy-Form1->Top-30;
I[G]->Left=xx-Form1->Left-10;
}

Но это извращенство и просто хочу показать что я хочу. На что мне опираться чтобы так сделать?