sysPackageH:=loadpackage(PkgName);
if sysPackageH<>0 then
try
Result:=True;
sysPackageClassV:=TFormClass(getClass(PkgClassName));
if sysPackageClassV<>nil then
begin
Result:=True;
with sysPackageClassV.Create(Application) do
try
show;
//showmodal;
finally
//free;
end;
end
else
Result:=False;
finally
//unloadpackage(sysPackageH);
end;