Данное описание не проходит
TWriteStoredDotEx=function(adr: DWORD ;
adr_type: DWORD ;command:PChar;value:single;point:integer;
index:integer): integer;stdcall;