如何将TPath数据另存为.jpg图像

Question

我是Delphi的新手。我需要帮助来完成我的代码。我只是在画一条路。现在，我想将其以图像格式保存到Android本地存储中。 这是我的代码

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Single);
begin
if ssLeft in Shift then
    Path1.Data.MoveTo(PointF(X,Y) - Path1.BoundsRect.TopLeft);
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Single);
begin
 if ssLeft in Shift then
    Path1.Data.LineTo(PointF(X,Y) - Path1.BoundsRect.TopLeft);
end;

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
  //save code goes here
end;