[Alegun]

Сообщение от ApxaHGe1

...так выдает ошибку)

Ясен пень, ошибка - функции StrToInt цифирки вместе с буквами пытаются подсунуть

Из любимого, что в подписи

Код:

...
type
TSVKey = record
 SKey : string;
 VKey : Byte;
end;

const
 SndKey:TSVKey = (SKey: 'F11'; VKey: VK_F11);
...

if Form1.Edit1.Text = SndKey.SKey then
 begin
  SendMessage(Window2, WM_KEYDOWN, SndKey.VKey, 0);
  Sleep(200);
  SendMessage(Window2, WM_KEYUP, SndKey.VKey , 0);
 end;
...