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);

根据自己的需要在相应位置进行画矩形。