procedure KeyDown(Key: integer);
begin
case Key of
VK_Left: x := x - 1;
VK_Right: x := x + 1;
VK_Up: y := y - 1;
VK_Down: y := y + 1;
end;
RectangleABC.Create(x, y, 20, 100, clRed);
end;
begin
x := 100;
y := 200;
LockDrawing;
repeat
OnKeyDown := KeyDown;
Redraw;
until true;
end.
Получается так, что он перерисовывает прямоугольник с "черным следом", я знаю, что нужно использовать Window.Clear; но почему то, не получается