[ewgeny911]

NumLock спасибо! Также на Королевстве Дельфи подсказали:

Код:

procedure TForm1.MyProc(F: TForm);
begin
  TLabel(F.FindComponent('Label1')).Caption := 'aaa';
end;