Form1.OnCReate

R: TRect;
begin

DoubleBuffered := True;

...
image1.Canvas.pen.Color:=image1.Canvas.Brush.Color;
image1.Canvas.FloodFill(0,0,clred,fsborder);

 R := Rect(0,0,Bmp.Width,Bmp.Height);
 Image1.Canvas.BrushCopy(Image1.ClientRect,Bmp,R,clBlack);