...
begin
Image:= TImage.Create(Self);
with Image do
begin
Width := 380;
Height:= 220;
Canvas.FloodFill(1, 1, Panel1.Color, fsBorder);
Canvas.Pen.Color:= clBlack;
Canvas.Pen.Width:= 2;
Canvas.Pen.Style:= psSolid;
Canvas.MoveTo(0,0);
Canvas.LineTo(380, 220);
Transparent:= True;
Parent:= Panel1;
end;
end;