Получение типа клавиатуры

Code:

function GettingKeybType: string; 

var

Flag:   integer;

begin

Flag:=0;

Case GetKeyboardType(Flag) of

   1:  Result:='IBM PC/XT or compatible (83-key) keyboard';

   2:  Result:='Olivetti "ICO" (102-key) keyboard';

   3:  Result:='IBM PC/AT (84-key) or similar keyboard';

   4:  Result:='IBM enhanced (101- or 102-key) keyboard';

   5:  Result:='Nokia 1050 and similar keyboards';

   6:  Result:='Nokia 9140 and similar keyboards';

   7:  Result:='Japanese keyboard';

end;

end;