with Canvas do begin Brush.Style:=bssolid; Brush.Color:=Form1.Color; Pen.Style:=psSolid; Pen.Color:=Form1.Color; Rectangle(ClipRect); end;