Bmp:TBitMap;
begin
Bmp:=TBitMap.Create;
Bmp.Height:=Form1.Height-200 ;
Bmp.Width:=Form1.Width-150;
Bmp.Canvas.CopyRect(Form1.Canvas.ClipRect,Form1.Canvas,Image1.Canvas.ClipRect);
end
begin
Bmp:=TBitMap.Create;
Bmp.Height:=Form1.Height-200 ;
Bmp.Width:=Form1.Width-150;
Bmp.Canvas.CopyRect(Form1.Canvas.ClipRect,Form1.Canvas,Image1.Canvas.ClipRect);
end