WideString port = L"Port";
VARIANT vPort;
vPort.vt = VT_I4;
vPort.intVal = 4;
res = FP.OleFunction(L"УстановитьПараметр", port.c_bstr(), vPort);
if(res == VARIANT_FALSE)
 printf("Параметр Port не установлен");

       WideString id;
res = FP.OleFunction(L"Подключить", &id);
if(res == VARIANT_TRUE)
 printf("Подключение создано");

var
 v : OleVariant;
 fDriver : variant;
 NM : WideString;
 DevID  : widestring; // , DevID
begin
     TVarData(V).VType := vtt;
     TVarData(V).VInteger := 4;
     NM := 'Port';
     FDriver.SetParameter(NM, v);
     FDriver.Open(DevID);