win32api on freepascal

I have a problem compiling this on freepascal, can you check for any error?

unit TestDll;

interface
uses Windows;
const
 NOMBREDLL = 'User32.dll';
 NOMBREFUNCION = 'GetAsyncKeyState';
// SHORT c(
  //  int vKey  // código de tecla virtual
  // );

function GetAsyncKeyState(vKey:longint):integer; *stdcall*; *external* NOMBREDLL name NOMBREFUNCION;

begin
end.

needs less ****

>>1
mexican

//{$MODE DELPHI}
Program TestDll;
uses Windows;
const
 VK_F1 = 112;
 NOMBREDLL = 'User32.dll';
 NOMBREFUNCION = 'GetAsyncKeyState';
// SHORT c(
  //  int vKey  // código de tecla virtual
  // );

function GetAsyncKeyState(vKey:longint):longint; stdcall; external NOMBREDLL name NOMBREFUNCION;

var
    s:string;
    a:longint;
begin
    a := 0;
//    while(not (a = 128 or a = 129)) do
    while(true) do
    begin
        a := GetAsyncKeyState(VK_F1);
        Str(a,s);
        writeln(s);
    end;
end.

I found It, thanks for all!! :)

>>4
sali de aca negro hispanohablante sucio