[YVitaliy]

Код:

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
if BitBtn1.Tag=0 then
begin
  BitBtn1.Tag:=1;
  Label1.Width:=BitBtn1.Glyph.Width;
  Label1.Height:=BitBtn1.Glyph.Height;
  Label1.Canvas.Draw(0,0,BitBtn1.Glyph);

end else begin
  BitBtn1.Tag:=0;
  Label1.Canvas.Brush.Color:=Form1.Color;
  Label1.Canvas.rectangle(0,0,Label1.Width, Label1.Height);
end;
end;

Не знаю, будет ли работать, не проверял.