ВАЖНО!
Включите в настройках компилятора :

Цитата
286 instructions
Где именно это сделать ?

Если ты про TP, то: Options -> Compiler -> вторая строка сверху...

забыл : free pascal

Добавлено через 5 мин.
Все сам нашел.
Я пытаюсь init мыш по faq но получаю ошибку 216

Добавлено через 6 мин.
Методом исключения у меня ошибка вот здесь
int $33

Из

   Function InitMouse : boolean;
   var
   ResultRegAX : word;
   begin
     asm
        mov ax, $00
        int $33
        mov ResultRegAX, ax
     end ;
   If ResultRegAX = $FFFF then begin writeln('test') ; InitMouse := true ; end else InitMouse := false ;
   end;

Мог бы и не пробовать... В FPC другие средства для работы с мышью, в частности - модуль Mouse.

нееееееееет .
Теперь буду знать.