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:
37:
38:
39:
40:
41:
42:
43:

procedure EnterTab(Sender: TObject; var Key: Word; Shift: TShiftState;
  ClassAus: array of TClass; ObjectAus: array of TObject;
  bESC_Close: Boolean = True);
var
  Mgs: TMsg;

  function ClassObjectAusschliessen: Boolean;
  var
    Index: Integer;
  begin
    Result := True;
    with Sender as TForm do
    begin
      for Index := Low(ClassAus) to High(ClassAus) do
        if ActiveControl is ClassAus[Index] then // Diese Class ausschliessen
          Exit; 
      for Index := Low(ObjectAus) to High(ObjectAus) do 
        if ActiveControl = ObjectAus[Index] then // Dieses Object ausschliessen 
          Exit; 
    end; 
    Result := False; 
  end; 

begin
  if Sender is TForm then 
    with Sender as TForm do 
    begin 
      case Key of 
        VK_RETURN, VK_TAB: if not ClassObjectAusschliessen then 
        begin 
          Key := 0; 
          Perform(WM_NextDlgCtl, ord(Shift = [ssShift]), 0); 
          PeekMessage(Mgs, 0, WM_CHAR, WM_CHAR, PM_REMOVE); // Beep-Ton ausschalten 
        end; 
        VK_ESCAPE: if bESC_Close and (Shift <> [ssShift]) then 
        begin 
          Key := 0; 
          Close; 
          PeekMessage(Mgs, 0, WM_CHAR, WM_CHAR, PM_REMOVE); // Beep-Ton ausschalten
        end;
      end // case
    end; // für WITH Sender As TForm DO
end;