TabOrder не работает

[BoozZzilla]

Delphi7 , создаю компоненты TEdit программно. У меня по два столбика этих эдитов. Мне удобнее создавать их сначала первый столбик потом второй. Клавишей таб соответственно переходит сначала по первому столбику потом по второму.
Попытался явно задать TabOrder. При создании в цикле задаю TabOrder. Попробовал для наглядности те же значения что назначаю табордеру повестиь в эдиты - всё верно, с нуля и в том порядке как мне надо.
Но собака не работает! Так же переходит сначала по первому столбцу потом по второму
Я не знаю, может кому то код нужен, я выложу, только в коде все вроде правильно. Я может что то просто недопонимаю.
Как догадка - может когда идет цикл и создаётся новый элемент, табордера заново раскидываются по всем элементам?

upd - попробовал раздать табордер следом, в другом цикле - всё заработало. Кто нибудь мне скажет может - я правильно предположил что всё переиначивается при добавлении нового компонента?

[reynevan]

было такое, только на с++.
Вместо
TranslateMessage(&Msg);
DispatchMessage(&Msg);

написал
while(GetMessage(&Msg,NULL,0,0))
{
if(!IsDialogMessage(hWnd, &Msg))
{
TranslateMessage(&Msg);
DispatchMessage(&Msg);
}
}
return Msg.wParam;
}

Мне помогло)