[[Bicho]]

Hola,

a bote pronto puedes probar con esto:

Código Delphi [-]
   
if (getkeystate(144) =1) or (getkeystate(144) =-127) then Edit1.Text := 'Bloq.Num'
else  Edit1.Text := '';
    
if (getkeystate(20) =1)  or (getkeystate(20) =-127)  then Edit2.Text := 'Mayús'
else Edit2.Text := 'Minus';

if (getkeystate(45) =1)  or (getkeystate(45) =-127)  then Edit3.Text := 'Sob.'
else  Edit3.Text := 'Ins.';

Saludos