var MERC :variant;
begin
   // comment
  merc := createoleobject('MercuryCOM.FPDRV1C2');

  merc.ПроверитьГотовностьФР(0);
end.