[Bargest]

if совершенно лишний, проще result := GetKeyState(16) <> 0.

вот и подумал можно ли тоже самое реализовать только со вставкой asm

Скомпилируй, дизассемблируй и вставь асм-код. Только зачем?