Code:

function InsertOn: Boolean;

begin

{©Drkb v.3(2007): www.drkb.ru}

Result:=LowOrderBitSet(GetKeyState(VK_INSERT));

end;