Переход между Edit стрелками

[brick08]

что то не могу побороть.
Суть: на Panel или GroupBOX накидано много Edit в правельном порядке, т.е. друг под другом и горизонтально. Нужно при помощи стрелок перемещаться между ними.
Сделал что то типа:

procedure TForm1.Edit36KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var x,y,i,min:integer;
PrtComp: TComponent;
ed:TEdit;
begin
min:=2000;
i:=0;
x:=(Sender as TEdit).Left;
y:=(Sender as TEdit).Top;
if Key in [VK_RIGHT, VK_LEFT, VK_UP, VK_DOWN] then begin
PrtComp:=(Sender as TEdit).GetParentComponent;
if PrtComp is TGroupBox then
for i:=0 to (PrtComp as TGroupBox).ControlCount-1 do begin
if (PrtComp as TGroupBox).Controls[i] is TEdit then

case Key of

VK_RIGHT:
if (min > (((PrtComp as TGroupBox).Controls[i] as TEdit).Left-x)) and
(x < ((PrtComp as TGroupBox).Controls[i] as TEdit).Left) and
(((PrtComp as TGroupBox).Controls[i] as TEdit).Top+10 > y) and
(((PrtComp as TGroupBox).Controls[i] as TEdit).Top-10 < y) then begin
ed:=((PrtComp as TGroupBox).Controls[i] as TEdit);
min:=((PrtComp as TGroupBox).Controls[i] as TEdit).Left-x;
end;
.....
end;  //case
end;  //for
if assigned(ed) and (ed.Enabled) and (not ed.ReadOnly) then ed.SetFocus;

Но работает если только предок один, а если разные то нет..
Как можно решить данную проблему?

[atihiy2010]

Как то ты слишком сложно написал. По моему проще так: пишу на словах, бо делфи рядом нету. Допустим есть 4 едита. По умолчанию при запуске фокус стоит на 1-м едите. Пишем.

If key=VK_RIGHT then Edit2.SetFocus;
If key=VK_DOWN then Edit3.SetFocus;

также для остальных, только надо еще проверку, на котором эдите сейчас стоит фокус. Если не получится - потом отпрактикую точнее уже по коду.

Это если использовать оператор If, можна и Case но я его не люблю)

[Аватар]

Мало того, что куча эдитов. Если под предком имеется ввиду Parent, то еще разные родители. Зачем спрашивается? StringGrid для таких целей и придуман