StrBody := FileAsStr(dlgOpen1.FileName);
  IolaTest.ValidType := CC_USE_OCSP_ONLY;
  IolaTest.OcspUrl := edt1.Text;
  
  try
    Result := IolaTest.ValidateDoc(StrBody, Now());
    if Result then ShowMessage('Certificate is OK!');
  finally
    ShowMessage(IolaTest.GetLastErrorString);
  end;

function OCSP_Verify(pParam : POINTER):dword; stdcall;
var cert:WideString;
begin
//---если проверка годности прошла, проверяем по OCSP
OCSP_frm.redt_data.Lines.Add('Системная проверка окончена.');
OCSP_frm.redt_data.Lines.Add('');
OCSP_frm.redt_data.Lines.Add('Начинается проверка OCSP. Пожалуйста подождите...');
  try
  cert := IolaCOM.ExportCertificate(form1.selectkey_combo.Text, CF_OUT_BASE64);
  iolaCOM.ValidType := CC_USE_OCSP_ONLY;
  iolaCOM.OcspUrl := 'http://ocsp.pki.kz:80';
   //try
    if iolaCOM.ValidateDoc(cert, now)=true then
    begin
    OCSP_frm.redt_data.Lines.Add('OCSP: Cертификат успешно подтвержден НУЦ РК');
    St:='8756214';
    OCSP_frm.close_btn.Caption:= 'Продолжить';
    end;
    finally
    OCSP_frm.redt_data.Lines.Add(IolaCOM.GetLastErrorString);
   end;
PulseEvent(Cardinal(pParam^));
end;