Графическое приложение, которое выводит несколько прямоугольников с использованием API-функций

program Project55;
uses
  windows,
  messages;
 
{$R *.RES}
var
  MyWin: HWND;
  MyDC: HDC;
 
 
function WindowFunc(MyWin: HWND; Mess,wParam,lParam: longint):longint; export; stdcall;
var ps : TPaintStruct;
    i : Integer;
    Pen : HPEN;
    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 9 do
                begin
                  Pen :=  SelectObject(ps.hdc, CreatePen(Random(8), Random(10)+1,  Random($ffffff + 1)));
                  brush := SelectObject(ps.hdc, CreateSolidBrush(Random($ffffff + 1)));
                    Ellipse(ps.hdc,
                      250 + i * 5,
                      250 + i * 5,
                      500 - i * 5,
                      500 - i * 5);
                  DeleteObject( SelectObject(ps.hdc, brush));
                  DeleteObject( SelectObject(ps.hdc, pen));
                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;
 
  if RegisterClass(MyWClass)=0 then Exit;
  MyWin:= CreateWindow('MyClass', 'My first window',
                         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.