怎么清空timage和tpaintbox还有Tbitmap的内容？ 急

如何清空timage和tpaintbox还有Tbitmap的内容？ 急！！


试过img1.picture := nil 不管用
img1.picture.bitmap := nil 一样~
img.picture.free出错

paintbox和Bitmap都类似~~

用fillrect，结果填充白色……

这些都不是我要的清空的内容~~如何清空这些控件的图像？

------解决方案--------------------
//显示

procedure TForm1.Button1Click(Sender: TObject);
var
bmp:TBitmap;
begin
bmp:=TBitmap.Create;
bmp.LoadFromFile('图片.bmp');
image1.Picture.Assign(bmp);
bmp.free;
end;

//清空
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
image1.Picture:=nil;
end;