procedure THIKeyboardLayout._var_CurrentKbd(var _Data:TData; Index:word);
var s:array[0..100]of pchar;
begin
   GetKeyboardLayoutName(s);
   dtString(_Data,s);
end;

Add(MainForm,3662738,126,70)
{
 Left=20
 Top=105
 Width=93
 Height=55
 Caption="CTRL_Key"
 BorderStyle=4
 Point(Handle)
}
Add(Timer,1020196,196,70)
{
 Interval=50
 link(onTimer,16637630:doCheckMask,[])
}
Add(KeyMask,16637630,252,70)
{
 Ctrl=1
 link(onFalse,1263804:doWork1,[])
 link(onTrue,1263804:doWork2,[])
}
Add(ChanelToIndex,1263804,308,70)
{
 link(onIndex,16274205:doData,[])
}
Add(ChangeMon,16274205,357,70)
{
 link(onData,2282427:doEvent1,[])
}
Add(KeyEvent,14022597,483,63)
{
 Code=91
}
Add(KeyEvent,11056287,483,105)
{
 Code=32
}
Add(Hub,2282427,420,70)
{
 OutCount=3
 link(onEvent1,14022597:doPressDown,[])
 link(onEvent2,11056287:doPress,[(459,83)(459,111)])
 link(onEvent3,14022597:doPressUp,[(466,90)(466,83)])
}