Как заставить сделать фигуры статической

uses
  windows,
  messages;       //интерфейсные модули
 
{$R *.RES}
var
  MyWin: HWND;    //переменная-дескриптор главного окна
 
function WindowFunc(MyWin: HWND; Mess,wParam,lParam: longint):longint; export; stdcall;
var ps : TPaintStruct;
    i : Integer;
    brush : HBRUSH;
begin
  WindowFunc:=0;
  case Mess of
   WM_DESTROY: begin         //обработчик сообщения
               PostQuitMessage(0);
               Exit;
               end;
 
   WM_Paint: begin          //обработчик события
              BeginPaint(MyWin, ps);
                for i := 0 to 5 do
                begin
                  brush := SelectObject(ps.hdc, CreateSolidBrush(Random($ffffff + 1)));
                    rectangle(ps.hdc,
                      200 + i * 9,
                      200 + i * 9,
                      300 - i * 9,
                      300 - i * 9);
                  DeleteObject( SelectObject(ps.hdc, brush));
                end;
              EndPaint(MyWin, ps);
             end;
  end;
   WindowFunc:=DefWindowProc(MyWin, Mess, wParam, lParam);  //вызов стандартного системного обработчика
  end;
 
procedure WinMain;  //основная функция приложения
var
  Mess: TMsg;      //переменная-сообщение
  MyWClass: TWndClass;  //переменная для описания оконного класса
begin
 
  MyWClass.lpfnWndProc:= @WindowFunc;  //поле-адрес оконной функции
  MyWClass.lpszClassName:= 'MyClass';   //поле-имя оконного класса
  MyWClass.lpszMenuName:= nil;  //поле-меню
  MyWClass.hCursor:= LoadCursor(0,IDC_ARROW);  //поле-тип курсора
  MyWClass.hbrBackground:= Hbrush (COLOR_WINDOW);   //поле-фон окна
  MyWClass.hIcon:= LoadIcon(0, IDI_ASTERISK);    //поле-пиктограмма
  MyWClass.Style:= cs_VRedraw OR cs_HRedraw OR cs_DblClks;
  MyWClass.cbClsExtra:= 0;
  MyWClass.cbWndExtra:= 0;
  MyWClass.hInstance:= hInstance;    //заполнение структуры типа TWNDCLASS
   // регестрируем класс окна
 if RegisterClass(MyWClass)=0 then Exit; //если неудачная регистрация
     //создаем главное окно
  MyWin:= CreateWindow('MyClass', 'Графическое приложение с использованием API-функций ,выполнил : Евгений Мустафаев ',
                         WS_OVERLAPPEDWINDOW,
                         100, 100, 700, 700, 0, 0,
                         hInstance, nil);
 
ShowWindow(MyWin, CmdShow);  //вывод на экран главное окно
  UpdateWindow(MyWin);
  while GetMessage(Mess, 0, 0, 0) do  //цикл обработки сообщений
    begin
     TranslateMessage(Mess);
     DispatchMessage(Mess);
    end;
end;
 
begin
  WinMain;   //запуск приложения
end.

  WM_Paint: 
  begin          //обработчик события
    BeginPaint(MyWin, ps);
    for i := 0 to 5 do
    begin
      brush := SelectObject(ps.hdc, CreateSolidBrush(Random($ffffff + 1)));
      rectangle(ps.hdc, 200 + i * 9, 200 + i * 9, 300 - i * 9, 300 - i * 9);
      DeleteObject( SelectObject(ps.hdc, brush));
    end;
    EndPaint(MyWin, ps);
  end;