Page Comparison

procedure TForm1.psGetPropertyResultAsString(Sender: TObject);
var
  ps: IPlanSwift;
  JobName: WideString;
begin
  //Create Planswift Interface
  ps := coPlanswift.Create;
  //Check to see if a job is open
  if ps.IsJobOpen then begin
    //Get the job name
    JobName := ps.GetPropertyResultAsString('Job','Name','Name Not Set');
    //Show the job in message window
    ShowMessage('Current Open Job is: ' + JobName);
  end else begin
    showMessage('No Job Opened');
  end;
  //Fee Planswift Interface
  ps := nil;
end;