Кликнуть по Tlabel из процедуры..?

[Человек_Борща]

а я просто открыл VCL и прописал этот метод.

[kta87]

Ну я сделал вот так

// Нажатие кнопки "Назад"
procedure TMyBook.Button2Click(Sender: TObject);
var
  LEventProc: TNotifyEvent;
begin
  if PNum > 0 then
  begin
   LEventProc:= TLabel(FindComponent('label'+IntToStr(PNum - 1))).OnClick;
   LEventProc(TLabel(FindComponent('label'+IntToStr(PNum - 1))));
  end;
end;

// Нажатие кнопки "Вперед"
procedure TMyBook.Button3Click(Sender: TObject);
var
  LEventProc: TNotifyEvent;
begin
 if PNum < 12 then
  begin
   LEventProc:= TLabel(FindComponent('label'+IntToStr(PNum + 1))).OnClick;
   LEventProc(TLabel(FindComponent('label'+IntToStr(PNum + 1))));
  end;
end;