procedure TMainForm.Button3Click(Sender: TObject);
var
VehCertbject;
APPVehCert:system.DispatchHelper;
begin
VehCert:=ComObj.CreateOleObject('VCertificate.VehCert');
appVehCert:=system.DispatchHelper.Create(VehCert);
appVehCert.InvokeMethod('PrtParaTbl',[1,'FDLS-325D-SKDI-E8EK']);