动态创建的图形,如何响应鼠标双击,来保存图形文件?

下面这段动态创建的图形,当图形画好后,如何在图形上响应鼠标双击动作,将保存文件的界面动态生成,并将图形保存下来.
procedure DrawTriChart(const ACaption, APrompt: string;                  m:integer;Qmat:matrixxy;mc:matrixsi);
var
  Form:        TForm;
  Image:       TImage;
  DialogUnits: TPoint;
  SavePicture: TSaveDialog;begin
  Form := TForm.Create(Application);
  with Form do
    try
      Canvas.Font := Font;
      DialogUnits := GetAveCharSize(Canvas);
      BorderStyle := bsDialog;
      Canvas.font.size:=12;
      Caption := ACaption;
      ClientWidth := MulDiv(350, DialogUnits.X, 4);
      ClientHeight :=MulDiv(250, DialogUnits.Y, 8);
      Position := poScreenCenter;
      image:= TImage.Create(Form);
      with Image do
      begin
        Parent := Form;
        Align:=alClient;
        Autosize:=true;
        width:=form.width;
        height:=form.height;
        Canvas.moveto(100,200);
        Canvas.lineto(300,500);
         ... ...
      end;
      if ShowModal = mrOk then
      begin
        Image.FreeOnRelease;
      end;
    finally
      Form.Free;
    end;
end;