При нажатии левой мышки, точка с координатами курсора мыши должна закрасится определенным цветом, правой - выход.
Вот есть код:

uses vesa2,graph;
var b,x,y:word;
begin
SetVesa;
SetGraphMode(2);
initmouse;
showcursor;
repeat
GetMouseXY(b,x,y);
if b=1 then putpixel(x,y,5);
until b=2;
vesadone;
end.

.
Почему точка закрашивается не всегда там где побывала мышка? Как исправить?

Потому, что ты отрисовываешь точку там, где находится указатель мыши, и как следствие этого - при неподвижной мыши у тебя вообще не рисуется точка. Рисуются иногда - если ты нажал левую кнопку и "тянешь" мышь, правда? Я так думаю, что пиксель просто попадает на маску курсора мыши и при перемещении ее - затирается цветом фона

Вообще-то в таких случаях желательно гасить курсор мыши, отрисовывать точку, и снова показывать курсор:

    if b = 1 then begin
      hidecursor;
      putpixel(x, y, 5);
      showcursor;
    end;

, но в твоем случае ты при "перетягивании" мыши с нажатой кнопкой получишь ее "след" на экране (я не знаю, почему это происходит, возможно, не совсем корректная работа с мышью, возможно - особенность VESA), так что попробуй:

    if b = 1 then begin
      putpixel(x-1,y-1,5);

(отрисовываешь пиксел чуть в стороне, и он не затирается)...

Ого , спасибо большое , сам бы не понял.

Сейчас отрисовывает, но если мышку повести чуть быстрее нормальной скорости, то остаются не закрашенные пиксели. Можно добится идеала?

Еще в местах где мышкой и не пахло иногда появляются пиксели тако же цвета, почему?

Рисуй не отдельные пикселы, а линию от старой точки до новой.

Спасибо , помогло.
Вот, если кому надо, реализация:

А как регулировать толщину линии?

Ну, "регулировать" это слишком сильно сказано . Можно сделать только более толстую и более тонкую линии (я имею в виду, стандартными средствами BGI):

SetLineStyle(SolidLn, 0, ThickWidth); { <-- или NormalWidth, для нормальной толщины }
Repeat
  { цикл отрисовки }
Until b = 2;

А, точно Я забыл, что теперь имею дело с линиями.