type
  Tgliste2 = class(TCustomControl)
...

procedure Tgliste2.KeyDown (var Key: Word; Shift: TShiftState);
begin
  inherited;
    
  //Komponente kriegt sonst keinen Focus
   if not focused then
   begin
     parent.Setfocus;
     self.SetFocus;
   end;

  if assigned(OnKeyDown) then OnKeyDown(key,Shift);


  case key of
    vk_up : Runterscrollen;
    vk_down : Raufscrollen;
    vk_next : Runterscrollen;
    vk_prior: Raufscrollen;
  end;
end;