How set parametr in SendeDaten(dwCookie: LongWord; dwType: LongWord; var vData: OleVariant);

How set parametr in SendeDaten(dwCookie: LongWord; dwType: LongWord; var vData: OleVariant);

In Delphi 2010
call DriverServer -IEC870
How set parametr in SendeDaten?
// *********************************************************************//
// Interface: IDriverServer
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {CFA2DA11-06B2-11D2-9795-080009ABB493}
// *********************************************************************//
IDriverServer = interface(IDispatch)
['{CFA2DA11-06B2-11D2-9795-080009ABB493}']
procedure SendeDaten(dwCookie: LongWord; dwType: LongWord; var vData: OleVariant); safecall;
end;

This is a migrated post! Originally posted on 21.09.2010 by user aleks2. Please be aware that information can be outdated.