//PlanSwift code:
Result := PlanSwift.Edition;
//FreshDesk Code:
procedure TForm1.psEdition(Sender: TObject);var
ps: IPlanSwift;
begin
//Create Planswift Interface
ps := coPlanswift.Create;
//Show Edition in Message Window
showMessage(ps.Edition);
//Free Planswift Interface
ps := nil;
end; |