self.Image1.Bitmap:= TBitmap.Create(Round(Image1.Width), Round(Image1.Height));
self.Image1.Bitmap.Canvas.BeginScene;
self.Image1.Bitmap.Canvas.Clear(TAlphaColorRec.Black);
self.Image1.Bitmap.Canvas.Stroke.Color:= TAlphaColorRec.White;
self.Image1.Bitmap.Canvas.DrawLine(TPointF.Create(0,0),TPointF.Create(100,100),1);
self.Image1.Bitmap.Canvas.EndScene;