이렇게 사용했는데 계속에러가 발생하네염
어떻게 사용해야 할지...

//---------------------------------------------------------------------------

#include <vcl.h>
#include <windows.h>
#include <math.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
HINSTANCE g_hInst;
LPSTR lpszClass="Graphic";
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------

int __fastcall TForm1::WinMain(HINSTANCE hInstance, HINSTANCE hPrevInstance, LPSTR lpszCmdParam, int nCmdShow)
{
    HWND hWnd;
    MSG Message;
    WNDCLASS WndClass;
    g_hInst=hInstance;

    WndClass.cbClsExtra=0;
    WndClass.cbWndExtra=0;
    WndClass.hbrBackground=(HBRUSH)GetStockObject(WHITE_BRUSH);
    WndClass.hCursor=LoadCursor(NULL,IDC_ARROW);
    WndClass.hIcon=LoadIcon(NULL,IDI_APPLICATION);
    WndClass.hInstance=hInstance;
    WndClass.lpfnWndProc=(WNDPROC)WndProc;
    WndClass.lpszClassName=lpszClass;
    WndClass.lpszMenuName=NULL;
    WndClass.style=CS_HREDRAW | CS_VREDRAW;
    RegisterClass(&WndClass);

    hWnd=CreateWindow(lpszClass,lpszClass,WS_OVERLAPPEDWINDOW,
          CW_USEDEFAULT,CW_USEDEFAULT,CW_USEDEFAULT,CW_USEDEFAULT,
          NULL,(HMENU)NULL,hInstance,NULL);

    ShowWindow(hWnd,nCmdShow);
    UpdateWindow(hWnd);

    while(GetMessage(&Message,0,0,0)) {
        TranslateMessage(&Message);
        DispatchMessage(&Message);
    }
    return Message.wParam;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::WndProc(HWND hWnd,UINT iMessage,WPARAM wParam,LPARAM lParam)
{
    HDC hdc;
    PAINTSTRUCT ps;
    POINT ar[]={25,10,125,10,140,30,10,30,25,10};
    HBRUSH BrR, BrB, BrY, OldBr;
    RECT rect;

    switch(iMessage) {
    case WM_PAINT:
        hdc=BeginPaint(hWnd, &ps);
        BrR=CreateSolidBrush(RGB(255,0,0));
        BrB=CreateSolidBrush(RGB(0,0,255));
        BrY=CreateSolidBrush(RGB(255,255,0));

        SetMapMode(hdc,MM_ANISOTROPIC);
        SetWindowExtEx(hdc,160,100,NULL);
        GetClientRect(hWnd, &rect);
        SetViewportExtEx(hdc,rect.right,rect.bottom,NULL);

        OldBr=(HBRUSH)SelectObject(hdc,BrR);
        Rectangle(hdc,20,30,130,90);
        SelectObject(hdc,BrB);
        Polygon(hdc,ar,5);

        SelectObject(hdc,BrY);
        Rectangle(hdc,30,40,60,70);
        Rectangle(hdc,90,40,120,70);
        Ellipse(hdc,135,5,155,25);

        SelectObject(hdc,OldBr);
        DeleteObject(BrR);
        DeleteObject(BrB);
        DeleteObject(BrY);
        EndPaint(hWnd, &ps);
        //return 0;
    case WM_DESTROY:
        PostQuitMessage(0);
        //return 0;
    }
    //return(DefWindowProc(hWnd,iMessage,wParam,lParam));
}

고수님들 갈쳐 주세염!!!