//PlanSwift code:
var
sVersion: string;
begin
sVersion := PlanSwift.CurrentVersion;
end;
//FreshDesk code:
procedure TForm1.psCurrentVersion(sender: TObject);
var
ps: IPlanSwift;
begin
//Create Planswift Interface
ps := coPlanswift.Create;
//Show Current Version of Planswift
ShowMessage(ps.CurrentVersion);
//Free the Planswift Interface
ps := nil;
end; |