Delphi에 직사각형 그리기

    Perform($000B, 0, 0); //         
    Canvas.Rectangle(Width+40-step,Height div 3-50,Width -step,0);
    Canvas.Rectangle(Width-step,Height,Width +40-step,Height div 3);
    Perform($000B, 1, 0);
    RedrawWindow(Handle, nil, 0, RDW_FRAME + RDW_INVALIDATE + RDW_ALLCHILDREN + RDW_NOINTERNALPAINT);

자신의 필요에 따라 상응하는 위치에서 직사각형을 그리다.