Ayuda con dll - API's

[GunMiNiHo]

:S bueno hola soy algo nuevo en el foro y en delphi xP pero bueno queria que le hecharan un ojo a este codigo fuente y me digan los errores xP! xq cuando compilo me salen varios errores:

library Project2;



uses
SysUtils,
Classes;
Windows;



{$R *.res}

const

MineralAdress1dword=$0040E07A;
//MineralAddress2dword=$00411601;

procedure Main;
////////////////////////////////////////////////////////////////////
// /////
/// Aciendo Hotkey /////
/// /////
///////////////////////////////////////////////////////////////////
procedure Hotkey;
begin
while(true) do
begin
if GetAsyncKeyState($9)<>0 then
begin
//ZChatOutput('HI!!!', 2, 0, $FFFFFFFF);
VirtualProtect(pointer($0040E07A), 1, PAGE_EXECUTE_READWRITE, nil);

//modificando address

pword($0040E07A)^:=$10000;
sleep(100);
pword($0040E07A)^:=$10000;
sleep(150);
end;

sleep(30);
end;
end;

/////////////////////////////////////////////////
/// Creando Thread ////
/////////////////////////////////////////////////

var
c:cardinal;
begin
CreateThread(nil, 0, @Hotkey, nil, 0, c);
if c=0 then
MessageBox(0, 'Unable to create thread.', 'ERROR!', MB_OK or MB_ICONERROR) else
MessageBox(0, 'Thread sucessfully created!', 'Sucess!', MB_OK);
//MessageBox(0, 'Happy Hacking by GunMiNiHo' , 'GunMiNiHo //Productions', MB_OK or MB_ICONERROR)
end.

aqui una imagen del error al compilar: