вот делаю чтото на подобие painta сделал рисование кистью а как сделать рисование точкой пытался посмотрите что не так
program paint;
const
SPEED = 1; // Скорость движения
var
i : Integer;
x, y : Integer; // позиция
key : Integer;
begin
// Инициализация
x := 32; // позиция по X
y := 32; // и по Y соответственно :)
i :=2;// толшина
// Подготовка поля вывода
SetColor(255, 255,255);
FillRect(0, 0, GetWidth, GetHeight);
// Отрисовка и обработка ввода
repeat
// Получаем код зажатой клавиши
key := GetKeyPressed;
// Вот что бывает, когда нет возможности использовать case ;)
if key = KE_KEY6 then x := x + SPEED;
if key = KE_KEY8 then y := y + SPEED;
if key = KE_KEY4 then x := x - SPEED;
if key = KE_KEY2 then y := y- SPEED;
if key = KE_KEY5 then
begin
setColor(125, 125, 125);
FillRect(x ,y, i,i );
end;
// контролируем выход за границы экрана
if x< 0 then x := 0;
if y < 0 then y := 0;
if x > GetWidth - i then x:= GetWidth - i;
if y > GetHeight - i then y := GetHeight - i;
// Рисуем новой позиции
setColor(0, 0, 0);
fillRect(x,y, i, i);
// Вывод этого безобразия на экран и задержка на 20 мс
repaint;
delay(20);
until GetKeyClicked = KE_KEY0; // Закрыть приложение при нажатии "0"
end.