[NumLock]

я же написал:

Код:

procedure TForm1.Timer1Timer(Sender: TObject);
var
  buf: array [0..$ff] of Char;
begin
  GetKeyboardLayoutName(buf);
  Edit1.Text:=StrPas(buf);
end;

если вернет (т.е. в Edit1.Text будет):
00000409 - значит en
00000419 - значит ru