[hasherfrog]

Savant По-моему, "= 1;" не нужно. И приведение к Byte тоже. Да и shr тоже :]
ИМО, что-то типа

Код:

function KeyPressed(VKey: Integer): LongBool;
begin
  Result := (GetKeyState(VKey) and $0080) <> 0;
end;

P.S. Если это скомпилить, получиться код больше данного ассемблерного.
Но ведь смысл не в этом, так?