памажите пожалуйста

Возникла проблема.

Имеются классы

TBridge = Class(TGraphicControl)
private
protected
public
constructor Create(AOwner: TComponent);override;
destructor Destroy; override;
published
end;

TStaticBridge = class(TBridge)
private
protected
public
procedure Paint; override;
published
end;

и процедура, рисующая на форме

procedure TForm1.DrawBack;
begin
With canvas do
begin
Pen.Width := 1;
Brush.Color:=clGreen;
FloodFill(1,1,clBlack,fsborder);
end;
end;

в теле программы

Form1.DrawBack;
StaticBridge := TStaticBridge.Create(Self);

Когда присваиваем
StaticBridge.Parent := Form1;
, то объект прорисовывает свою канву на форме, но при этом на форме получается белый прямоугольник = размеру канвы объекта.
Подcкажите способ избежать этой гадости(исключая рисования фона внутри процедуры Paint класса TStaticBridge)