Я сделал это, на самом деле это намного проще. Использование одной строки во второй функции.
var txt_input = event.formInput.txt_home;
http://www.swissdelphicenter.ch/torry/showcode.php?id=147
В основном существует три шага:
Зарегистрироваться
// Register Hotkey Win + A
id1 := GlobalAddAtom('Hotkey1');
RegisterHotKey(Handle, id1, MOD_WIN, VK_A);
Дескриптор
procedure WMHotKey(var Msg: TWMHotKey); message WM_HOTKEY;
{ .... }
// Trap Hotkey Messages
procedure TForm1.WMHotKey(var Msg: TWMHotKey);
begin
if Msg.HotKey = id1 then
ShowMessage('Win + A pressed !');
Нерегистр
UnRegisterHotKey(Handle, id1);
GlobalDeleteAtom(id1);