Problem when changing rectangle colour

classic12

I have 4 rectangles that overlay a graphic. I change the colours according to a radio button.

Colour01 := frxReportPermit.FindObject('Shape2') as TfrxShapeView;
Colour02 := frxReportPermit.FindObject('Shape3') as TfrxShapeView;
Colour03 := frxReportPermit.FindObject('Shape4') as TfrxShapeView;
Colour04 := frxReportPermit.FindObject('Shape5') as TfrxShapeView;
if (radiogroup1.ItemIndex = 0 )then
begin
Colour01.Color := clNone;
Colour02.Color := clNone;
Colour03.Color := clNone;
Colour04.Color := clNone;

end;

if (radiogroup1.ItemIndex = 1 )then
begin
Colour01.Color := clRed;
Colour02.Color := clRed;
Colour03.Color := clRed;
Colour04.Color := clRed;

end;

if (radiogroup1.ItemIndex = 2 )then
begin
Colour01.Color := clBlue;
Colour02.Color := clBlue;
Colour03.Color := clBlue;
Colour04.Color := clBlue;

end;

The problem is when I print I get a white border around the rectangles. There is border set or showing within the report.