Сделал так
Код:
procedure TForm1.Button2Click(Sender: TObject);
begin
image4.Width:=Jvlabel1.Width-3;
image4.Height:=Jvlabel1.Height-2;
image4.Canvas.Font:=JvLabel1.Font;
Image4.Canvas.CopyRect(Rect(0, 0, image4.Width, image4.Height),Jvlabel1.Canvas,Rect(0, 0, image4.Width, image4.Height));
end;
но так как JvLabel прозрачный, то в Image попадает то что за JvLabel.