как определить cостояние кнопки Insert?

[falsebegin]

...........

[Баламут]

procedure TForm1.Button1Click(Sender: TObject);
var
   test: boolean;
begin
   test := (GetKeyState(VK_INSERT)and 1) <> 0;
   case test of
      true: ShowMessage('Включено');
      false: ShowMessage('Выключено');
   end;
end;

[Serge_Bliznykov]

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

...........

и зачем удалять свой вопрос?!