почему не работает

[BrYan91]

вот код програмы, должно работать но почемуто ругается

program Project1;

{$APPTYPE CONSOLE}

uses Windows, SysUtils ;

procedure ShowConsoleCursor(bShow : Boolean);
var
	hOut : THANDLE;
	cursorInfo : CONSOLE_CURSOR_INFO;
begin
  hOut		:= GetStdHandle(STD_OUTPUT_HANDLE);

	cursorInfo.dwSize	:= 10;
	cursorInfo.bVisible 	:= bShow;
	SetConsoleCursorInfo( hOut,@cursorInfo);
end;

procedure gotoXY(X,Y : Integer);
var
	hOut : THANDLE;
  XY : COORD;
begin
  hOut		:= GetStdHandle(STD_OUTPUT_HANDLE);
  XY.X := X;
  XY.Y := Y;
  SetConsoleCursorPosition(hOut,XY);
end;  

begin
  ShowConsoleCursor(False);
  GotoXY(30,10);
  WriteLn('Press enter to close');
  ReadLn;
end.

[Error] Project1.dpr(16): Incompatible types: '_CONSOLE_CURSOR_INFO' and 'Pointer'