listbox как нажать программно onkeyup

[Pcrepair]

Добрый день.

есть в наличии

procedure TMain.Button1Click(Sender: TObject);
begin
  Button2.Click; // тут все по букварю, работает. это просто пример того что нужно
  
  // тут нужно вызвать обработчик ListBox1KeyUp со всеми его потрохами 
  ListBox1.SetFocus;  // тут норм
  ListBox1.ItemIndex := 0;  // тут норм
  ListBox1.OnClick(nil);  // а тут выскакивает исключение вместо того чтобы(как в букваре)? вызвать обработчик
end;

procedure TMain.Button2Click(Sender: TObject);
begin
  //
end;

procedure TMain.ListBox1KeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  if (Key = VK_RETURN) then
  begin
    //
  end;
end;

исключение тут:

unit Vcl.Controls;
procedure TControl.Click;
begin
  { Call OnClick if assigned and not equal to associated action's OnExecute.
    If associated action's OnExecute assigned then call it, otherwise, call
    OnClick. }
  if Assigned(FOnClick) and (Action <> nil) and not DelegatesEqual(@FOnClick, @Action.OnExecute) then
    FOnClick(Self)
  else if not (csDesigning in ComponentState) and (ActionLink <> nil) then
    ActionLink.Execute(Self)
  else if Assigned(FOnClick) then
    FOnClick(Self);
end;

вопрос: как иммитировать ListBox1KeyUp?

Заранее спасибо за ответы по ЗАДАННЫМ вопросам

[evg_m]

// тут нужно вызвать обработчик ListBox1KeyUp со всеми его потрохами

https://programmersforum.ru/showthread.php?t=337201
смысл и назначение любого обработчика вызов твоих процедур(методов)