[ecfisa]

Hola julyus.

Claro, por que estás intentando asignar una funcion a un array of variant:

NewArrayData := SearchEvents(...

Tendrías que declarar un puntero a método de este modo:

Código Delphi [-]
type
 TListArray = array[0..58] of Variant;
 TFuncionPtr = function (sIMEI: string; iCompanyId : integer;  sVehicleId : string;
            iCurrSpeed,iCurrRPM,iAccDeccValue :integer;
            bDIN1, bDIN2, bDIN3, bDIN4 : Boolean;
            fAIN1, fAIN2,  fAIN3, fAIN4 : string;
            iGSMSignal, iCurrentProfile : integer;
            fAcelerometerData, fGPSSpeed,  fPowerSuplyVoltage, fBatteryVoltage, fBatteryCurrent,
            fGPSPower, fPCBTemperature, fTempSensor1, fTempSensor2,
            fTempSensor3, fFuelCounter, sButtonInput, fCan0, fCan1,
            fCan2, fCan3, fCan4, fCan5, fCan6, fCan7, fCan8,  fCan9 : string;
            bGeoZone1, bGeoZone2, bGeoZone3,
            bGeoZone4, bGeoZone5, bGeoZone6, bGeoZone7,
            bGeoZone8, bGeoZone9, bGeoZone10, bGeoZone11,
            bGeoZone12, bGeoZone13, bGeoZone14, bGeoZone15,
            bGeoZone16, bGeoZone17, bGeoZone18, bGeoZone19, bGeoZone20 : Boolean;
            fVirtualOdometer : string; sCurrOperatorCode :
            string; bMovement : Bool ) :TListArray  of object;
 TForm1: class(TForm)   
 public
    FuncionPtr : TFuncionPtr;
    ...
 private
   ...
 end; 

...

Entonces la asignación sería:

Código Delphi [-]
   FuncionPtr := SearchEvents(...

Saludos.