Как сделать так что при нажатии любой клавиши на клавиатуре нажималось на button1 в delphi

Я сделал это вот так:
В Button1 зашел во вкладку Event и нажал на OnKeyPress и там записал следуйщий код
procedure TForm1.Button1KeyPress(Sender: TObject; var Key: Char);
var cod: byte;
begin
cod:= Ord(1);
begin
Button1.Click;
end;
end;
Но он работает только когда я нажму на программу и в ней нажму 1.
А мне нужно чтоб в другом окне когда я нажал 1 нажималось на Button1
Как это сделать?