coinitialize(nil);
 dm := Tdm.Create(nil);
 with dm do
 begin
   if cn.Connected = false then cn.Connected:= True;
   if qPers.Active = True then qPers.Close;
   qPers.Params.ParamByName('pers_no').Value := Trim(pers_no);
   qPers.Open;
   i := qPers.FieldByName('path').AsInteger;
   qPers.Close;
 end;
 case i  of
 1:
 begin
        ...

 end;
 2:
 begin
  ...      

  end;

  end;
  Result := i;
  dm.Free;
 CoUnInitialize();