Page Comparison

procedure TForm1.psDeleteItem(Sender: TObject);
var
  ps: IPlanSwift;
  sitm: IItem;
begin
//Create Planswift Interface
  ps := coPlanswift.Create;
  //Get the current Selected Item
  sitm := ps.SelectedItem;
  //if no item is selected show message and exit;
  if sitm = nil then begin
    showmessage('Please Select an Item and Press the demo button again');
    Exit;
  end;
  //Delete the selected Item
  ps.DeleteItem(sitm.guid);
  //Free Planswift Interface
  ps := nil;
end;