1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

var i: integer;
begin
  for i := 1 to 3 do
  begin
    if assigned (findcomponent('Edit' + IntToStr(i))) then
    begin
      if TEdit(findcomponent ('Edit' + IntToStr(i))).focused = True
      then label1.Caption := 'Edit' + IntToStr(i);
    end;
  end;
end;					

1:
2:

IF Assigned(MyForm.ActiveControl) THEN
  ShowMessage(MyForm.ActiveControl.Name);					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
...
    procedure Fokus_setzen;
    begin
        case m_feld of
            1: e_vorname.SetFocus;
            2: e_nachname.SetFocus;
            .....
            8: e_nochwas.SetFocus;
 //         9: combobox.SetFocus
        end;
    ....
    end;
...
begin
  if (Key=VK_DOWN) and (ActiveControl.Name <> 'ComboBox_name') then
  begin
    if m_feld <= 7
    then m_feld := m_feld + 1  // auf das nächste Eingabe-Feld
    else begin
           m_feld := 1;               // auf das erste Eingabe-Feld
           ...
           ... 
        end;
    Fokus_setzen;
  end;

  if (Key=VK_UP) and (ActiveControl.Name <> 'ComboBox_name') then
  begin
    if m_feld >= 2
    then m_feld := m_feld - 1   // auf das voherige Eingabe-Feld
    else m_feld := 8;               // auf das letzte Eingabe-Feld
    Fokus_setzen;
   end;
...
...