uses
  GraphABC;

procedure MouseMove(x, y, mb: integer);
begin
  if mb = 0 then
  begin
    ClearWindow(rgb(255, 255, 255)); // Заливка окна
    Brush.Color := clBlue;
    Circle(x, y, 25);
  end;
end;

begin
  SetWindowSize(1024, 800); // Размер окна
  SetWindowIsFixedSize(true); // Фиксируем размер окна
  SetWindowCaption('ГОВНО'); // Загловок окна
  CenterWindow; // Окнов центре
  ClearWindow(rgb(255, 255, 255)); // Заливка окна

  // Привязка обработчиков к событиям
  OnMouseMove := MouseMove
end.