Page Comparison

procedure TForm1.psSaveScreenShowt(Sender: TObject);
var
  ps: IPlanSwift;
  sdialog: TSaveDialog;
begin
//Create Planswift Interface
  ps := coPlanswift.Create;
  //Create a Save Dialog
  sdialog := TSaveDialog.Create(form1);
  try
  if sdialog.Execute then
    //Save Screenshot to dialog selected location
    ps.SaveScreenShot(sdialog.FileName,true);
  finally
    //Free the dialog
    sdialog.Free;
  end;
  //Free Planswift
  ps := nil;
end;